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ABSTRACT 



Heat sinks consisting of individual fins and arrays of fins are used 
extensively throughout the Navy and industry. The fins serve to increase the 
surface area thorough which heat is transferred to the surrounding 
environment by natural convection. Extended surfaces or fins are commonly 
found on electronic components ranging from power supplies to transformers. 
The dissipation and subsequent rejection of potentially destructive self 
produced heat is an important aspect of electronic equipment design. 

Fin design theory is examined starting with the optimization of individual 
fin dimensions. The insights obtained are utilized in an investigation of the 
optimal number and spacing of elements in an array of fins. The results are 
implemented in a computer program written in ADA and compiled for use on 
IBM compatible machines. The program takes as inputs thermal and physical 
data and outputs an optimized fin configuration. Menu driven, the program is 
easily employed without any amplifying documentation. The program serves 
to greatly simplify and accelerate the fin design process and should be an 
invaluable tool to electronic component designers, especially those with a 
limited background in heat transfer and fin optimization theory. 
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I. INTRODUCTION 



Convection is the transfer of energy from a heat source to a cooler 
surrounding fluid due to the motion of the fluid. The rate of heat transfer by 
convection, is governed by Newton's Law of Cooling which is 

q, = hA^{T-TJ (1-1) 

where h is the coefficient of heat transfer in convection, is the surface area, 
T is the fin temperature at position x, and is the ambient temperature. One 
method of increasing q^ is to increase h by going from natural to forced 
convection. Natural convection is a phenomenon in which the fluid motion is 
induced by differences in buoyancy and density between parcels of fluid at the 
confining surface and within the bulk of the fluid. Forced convection occurs 
when the fluid motion is induced or forced by a fan, pump, or blower. Because 
the addition of a fan or pump may increase operating costs, background noise, 
and component size, forced convection is often undesirable. An alternative 
method of increasing q^ is to increase A^. by adding extended surfaces or fins. 

[Ref. l:pp. 114-119] 

In the design of electronic components, the disadvantages of forced 
convection often lead to the use of natural convection and fins to dissipate 
potentially destructive component produced heat. Fin design and optimization 
in a natural convective environment is the subject of this work. 

Fin design theory may be examined by beginning with the single fin 
problem. The temperature profile differential equation can be developed for 
arbitrarily shaped fins and subsequently applied to fins of constant cross- 
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sectional area. The temperature distribution, fin tip temperature, heat 
dissipation, and fin efficiency equations are all derived here and the equations 
are then applied to the cylindrical spine and rectangular fin, which are two 
commonly employed fin designs. 

Single fin optimization theory is explored for the cylindrical spine and 
rectangular fin. Two separate situations are examined. First, for a given 
volume or quantity of material, the fin dimensions can be optimized to 
maximize the heat transfer rate. Second, for a given heat transfer rate, the fin 
dimensions can be provided which will minimize the volume of material 
required. 

Multiple fin heat transfer and optimization theories can also be developed 
for an array of symmetric isothermal rectangular fins. Here too, the equation 
for the heat dissipation can be derived. This leads to an optimization where 
the number and spacing of fins can be provided to give the maximum heat 
transfer rate from a wall of given dimensions. In addition, the number and 
spacing of fins can be optimized to maximize the heat transfer rate from each 
fin on a wall of given dimensions. 

The single and multiple fin heat transfer and optimization equations are 
implemented in a computer program written in ADA and compiled for use on 
IBM compatible machines. The emphasis of the program is on ease of use. The 
program is menu driven and does not require any amplifying documentation. 
Knowledge of heat transfer theory is not required. When faced with a fin 
optimization problem, an electronic component designer is no longer forced to 
choose between conducting laborious heat transfer calculations or resorting to 
trial and error. 
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The computer program is illustrated by means of an actual fin array 
design problem. The increase in heat transfer rate resulting from a staggering 
of fin arrays, without any increase in materials or wall placement area, is also 
demonstrated. 
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II. SINGLE FIN HEAT TRANSFER THEORY 



A. INTRODUCTION 

In order to make the mathematical analysis of extended surfaces 
tractable, Murray |Ref. 2:p. A78] and Gardner |Ref. 3:p. 621] proposed several 
limiting assumptions. These are: 

(1) The heat flow and temperature distribution throughout the fin are 
independent of time i.e., the heat flow is steady. 

(2) The fin material is homogeneous and isotropic. 

(3) There are no heat sources in the fin itself. 

(4) The heat flow to or from the fin surface at any point is directly 
proportional to the temperature difference between the surface at 
that point and the surrounding fluid. 

(5) The thermal conductivity of the fin is constant. 

(6) The heat transfer coefficient is the same over all the fin surface. 

(7) The temperature of the surrounding fluid is uniform. 

(8) The temperature of the base of the fin is uniform. 

(9) The thickness is so small compared to its height that temperature 
gradients normal to the surface may be neglected. 

(10) The heat transferred through the outermost edge of the fin is 
negligible compared to that passing through the sides. 

These assumptions serve to narrow the scope of the extended surface problem 

and are applicable in the analysis that follows. [Ref. 3:p. 324] 



B. ARBITRARILY SHAPED FINS 

1. Temperature Profile Differential Equation 

Figure 2-1 is an example of an arbitrarily shaped fin of height b, 
differential surface area dA^, and varying cross-sectional area A(x). The Fourier 

and Newton Laws are used to derive the differential equation for the 
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temperature profile of the fin shown in Figure 2-1. As fins are generally thin, b 
is assumed to be much greater than r. Although the fin temperature varies 
with r and x, the radial variation is small and assumed to be negligible. [Ref. 
l:pp. 117-118] 




In Figure 2-1, Heat enters the control volume by conduction at a rate 
of q(x) and exits at a rate of q(x + dx). Heat is dissipated by convection through 
dA^ at a rate of dq^. [Ref. l:p. 118] 

Ignoring radiation and assuming no internal heat generation, the 
heat balance energy equation for the control volume can be written as 

q{x) = q{x + dx) + dq^ (2-i) 

Substituting for q(x+dx) 



qix) = { q(x) + - d?<] + dq^ 






dx 



( 2 - 2 ) 
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and simplifying yields 



dqjx) 

dx 



dx - dq^ 



(2-3) 



Fourier's Law can be expressed as 



q{x) = -kA{x)^ 
dx 



(2-4) 



where k is the thermal conductivity of the fin material and dTfdx is the 
temperature gradient. Differentiating Equation 2-4 with respect to x gives 



dqjx) ^ , d 
dx dx 






A{x) 






dx 



Newton’s Law of Cooling can be written as 

dq^=hdA,{T-T.) 

Substituting Equations 2-5 and 2-6 into Equation 2-3 gives 



(2-5) 



( 2 - 6 ) 






A(x) ^]dx = hdA, {T-T) 
dx) 



(2-7) 



Then, differentiating and dividing both sides by kdx provides 

dA{x) dT ^ = 



dx dx 

so that a simplification then gives 

J2 



dx k dx 



( 2 - 8 ) 



d^T 1 ^(x) dT h dA,, ^ 

d)d A{x) dx dx kA{x) dx 



(2-9) 



Equation 2-9 is the temperature profile differential equation for an arbitrarily 
shaped fin of varying cross-sectional area. [Ref. l:pp. 118-119] 



6 



2. Temperature Distribution Equation 

A general solution to Equation 2-9, is found for a fin with constant 
cross-sectional area, A. Uniform cross-sectional area means that A(x) = A (a 
constant) and permits the simplification 



dAjx) ^ Q 
dx 



( 2 - 10 ) 



and with this in Equation 2-9, the result is 

£T_Jt_^(T-T ) = 0 

dx^ kA dx^ 

If the surface area is expressed in terms of the perimeter, P 

dA^ = Pdx 

a substitution into Equation 2-11 yields 

^-^(T-rJ = o 

dx kA 



and if a change of variables 



Q = T-T 



is made, then 



T = e + T^ 

dT ^dQ 
dx dx 



and 



d^T ^ d^Q 
d>d d>d 

Use of these permits Equation 2-13 to be written as 

||-^e = o 

dx kA 

and if the parameter, m, is introduced 



( 2 - 11 ) 

( 2 - 12 ) 

(2-13) 

(2-14) 

(2-15) 

(2-16) 

(2-17) 

(2-18) 
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(2-19) 



then Equation 2-18 can be written as 




( 2 - 20 ) 



The general solution to Equation 2-20 is 



0 = Cj cosh(/7ix) + Cj sinh(mA:) 



( 2 - 21 ) 



where the arbitrary constants, Q and C 2 , are evaluated from the boundary 
conditions 

• At position X = 0, T = 7^ and =T^~ 

• At position X = b, — — = 0 and — = 0 

dx dx 

where is the wall temperature. The second boundary condition is based on 
the earlier assumption that b is much greater than r so that the surface area at 
the fin tip is very small and that the heat dissipated at the tip is negligible. The 
heat convected away from the surface area at the tip of the fin is considered 
negligible. Applying the first boundary condition to Equation 2-21 yields 



0,,=Q-1 + C2-O 



( 2 - 22 ) 



so that 



C =0 



(2-23) 



Then, a differentiation of Equation 2-21 gives 

dQ 

— = Q^msmh{mx) + Cj/ii cosh(mx) 



dx 



(2-24) 



so that employment of the second boundary condition provides 



0 = Q^msinh{mb) + C 2 in cosh{mb) 



(2-25) 



and hence 
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0 ^^ smh{mb) 
cosh{mb) 



After substitution for Cj and C 2 , Equation 2-21 becomes 



(2-26) 



0 cosh(mZ?) cosh(mx) - smh{mb) sinh{inx) 

cosh(mZ?) 



(2 -27) 



Using a hyperbolic function identity in Equation 2-27 allows the representation 



cosh 


mb 








1 



cosh(m^) 



(2-28) 



and returning to =T^~ 



T = T^ + 



(j;-rJcosh 



mb 



cosh{mb) 




(2-29) 



Equation 2-29 gives the temperature profile for a fin of constant cross-sectional 
area. The temperature at any position x along the fin can be calculated using 
Equation 2-29. [Ref. l:pp. 120-123] 

3. Fin Tip Temperature Equation 

Often, a value of interest is the temperature at the tip of the fin, 7^^. 

Substituting X = b into Equation 2-29 gives 

Equation 2-30 is the equation for the fin tip temperature for a fin of constant 
cross-sectional area. [Ref. l:pp. 145-146] 
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4. Heat Dissipation Equation 



The heat dissipation equation for a fin of constant cross-sectional 
area is derived using Fourier's Law and Equation 2-27. From Fourier's Law, 



q = -kA 



dx 



x=0 



= -kA^ 



x=0 



Differentiation of Equation 2-27 yields 



(2-31) 



dQ [hi cosh(mZ?) siiih(mA) - m sinh(mi>) cosh(nix)] 

dx cosh{mb) 

and this may be put into Equation 2-31 to obtain 



(2-32) 



kAQ^ [m cosh(mfc>) sinh(mx) - m smh{mb) cosh(mx)] 



cosh{mb) 



(2-33) 



x=0 



A simplification then yields 



kAQ„ [m sinh(m£7)] 
^ cosh{mb) 



(2-34) 



and substituting for 6,,, gives 



q = kAm{T^ - T„) tanh(m£>) 



(2-35) 



Equation 2-35 is the heat dissipation equation for a fin of constant cross- 
sectional area. [Ref. l;p. 123] 

5. Fin Efficiency 

A common parameter employed in the design of finned surfaces is 
the fin efficiency, q. The definition of q is the actual heat dissipated by the fin 

divided by that which would be dissipated if the fin operated throughout at the 
wall temperature. If Equation 2-35, which gives the actual dissipation, is 
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divided by Newton's Law of Cooling, which gives the ideal dissipation, the 
result is 



kAm{T^ - r„)tanh(mfc>) 



Hence 



and 



11 = 



kAm tanh( tilt?) 



kAm^ tanli(/Jiit) 

H = ; 

miiA^ 

and with = hP/kA by Equation 2-19 



Thus 



kAhP tanh(h7it) 
kAmhA^ 



P tanh(;7it>) 

n\As 



(2-36) 



(2-37) 



(2-38) 



(2-39) 



(2-40) 



But A^ = Pb, and this simplification gives the final expression for the fin of 
constant cross-section. 

tanh(n7i7) 



11 = 



mb 



(2-41) 



Equation 2-41 provides the efficiency of a fin with constant cross-sectional 
area. (Ref. l:p. 125] 
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C. SPECIFIC FIN CONFIGURATIONS 



1. Cylindrical Spine 

As shown in Figure 2-2, a cylindrical spine is essentially a bar of 
height b and diameter d attached to the surface to be cooled. As the fin has a 
constant cross-sectional area, the equations derived in the previous section 
apply to the cylindrical spine. [Ref. l:p. 120] 




For the cylindrical spine, the perimeter and area are written as 

P = nd (2-42) 

and 



Hence, Equation 2-19 becomes 




(2-43) 
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(2-44) 



2. Longitu dined Fin of Rectangular Profile 

A commonly encountered fin configuration is that of the 
longitudinal fin of rectangular profile. Figure 2-3 is an example of a 
rectangular fin of height b, length L, and width 5. The equations derived for 
fins of constant cross-sectional area are applicable to the rectangular fin 
configuration. [Ref. l:p. 120] 



For the longitudinal fin of rectangular profile, the perimeter and area 




5 



b 



Figure 2-3. Rectangular Fin 



are 
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P = 2d + 2L 



(2-45) 



and 



A = L5 (2-46) 

As rectangular fins are traditionally thin, the following simplification is made 
[Ref. l:p. 137]. 



P = 2L 



(2-47) 



Substituting Equations 2-46 and 2-47 into Equation 2-19 gives 




(2-48) 
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III. SINGLE FIN OPTIMIZATION THEORY 



A. INTRODUCTION 

Single fin optimization theory can be divided into two categories. In the 
first category the fin shape is known. Two commonly employed fin shapes, the 
cylindrical spine and the rectangular fin, may be examined from two different 
perspectives. Either the dimensions of the fin are optimized to yield the 
maximum heat transfer rate from a given volume or, for a given heat transfer 
rate, the fin dimensions are optimized to minimize the required volume of 
material. The second category is based on the determination of an optimal fin 
shape. Fin shapes are found which minimize the volume of material required 
to obtain a given heat transfer rate. Curved fins are commonly produced in the 
shape optimization problem. As curved fins are difficult and expensive to 
manufacture, the shape optimization problem will not be addressed. [Ref. 5:p. 
155] 

B. CYLINDRICAL SPINE 

1. Maximum Heat Transfer for a Given Volume 

Substituting Equations 2-43 and 2-44 into Equation 2-35 yields 




(3-1) 



If 
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(3-2) 



then 




^7 = 



knd^jT^-T^) 

4b 



ptanh(p) 



and for a cylinder of volume V 



and 



V = 



Tid^b 

4 



b = 



4V 

Tid^ 




Substituting Equation 3-5 into Equation 3-3 yields 



(3-3) 



(3-4) 



(3-5) 



(3-6) 



^7 = 



kK^d\T^-Tj) 

16V 



ptanh(p) 



(3-7) 



Then, taking the derivative with respect to d, simplifying, and setting it equal 

to zero leads to the following transcendental equation. 

lOP = 3sinh(2p) (3-8) 



with a solution which can be determined by trial and error 

p = 0.9193 

Substitution of this value of P into Equation 3-2 produces 



0.9193 




(3-9) 



(3-10) 
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Expressing b by Equation 3-5 gives 



4V 



(3-11) 



Hence, the optimized value for the diameter, d, is 



= 1.5031 






(3-12) 



\ '^ J 



and substitution of Equation 3-6 into Equation 3-10 yields 



0.9193 = 



4h 



^Kb) 



V2 



(3-13) 



Thus, the optimized value for the height, b, is 



=0.5636 









(3-14) 



Equations 3-12 and 3-14 specify the optimal dimensions of a cylindrical spine 
to achieve the maximum heat transfer rate for a given volume. [Ref. 5:p. 158] 

2. Minimum Volume for a Given Heat Tremsfer 
Solve Equation 3-10 for b 



= 0.9193 




(3-15) 



and then substitute Equations 3-15 and 3-9 into Equation 3-3 to obtain 




0.9193 tanh(0.9193) 



(3-16) 
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Hence 



\l/3 



=0.9165 



hk{T,-Tj 



The solution of the transcendental, Equation 3-10, is for d 



d = 



4hb^ 



k{0.9l93f 

and substituting Equations 3-18 and 3-9 into Equation 3-3 yields 



d = 



IGh^b^kKjT^ -Tj 
4bk^{0.9l93Y 



0.9193 tanh(0. 9 193) 



Thus 



b,^,=0A400 



qk 



\V3 



(3-17) 



(3-18) 



(3-19) 



(3-20) 



h\T,-T.) 

Equations 3-17 and 3-20 specify the optimal dimensions of a cylindrical spine 
to achieve the minimum volume for a given heat transfer rate. [Ref. 5:p. 158] 



C. RECTANGULAR FIN 

1. Maximum Heat Tremsfer for a Given Volume emd Length 

Substituting Equations 2-46 and 2-48 into Equation 2-35 gives 






(3-21) 



For a rectangular fin 



V = dLb 



(3-22) 



18 



or 



b = 



V_ 

51 



and 



bL 

Substituting Equation 3-23 into Equation 3-21 yields 



Ion 

fl = A:5LJ^(T,-T.)tanh| 






51 V kb 



(3-23) 



(3-24) 



(3-25) 



and, once more, making a change of variables 



u=^M 

LUb^ 



(3-26) 



gives 



Ion 

q = kiLJ^{T,-T.)xaiMU) 



(3-27) 



Taking the derivative with respect to 5, simplifying, and setting the result equal 

to zero, yields the transcendental equation 

6U = sinh(2[/) (3-28) 

A trial and error solution gives 

[7 = 1.4192 (3-29) 

and substituting this result into Equation 3-26 gives 



1.4192 = :^^ 



2h 



kb^ 



(3-30) 



This shows that the optimized value for the width, 5 , is 
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(3-31) 



=0.9977 



V^h 

13k 



1/3 



Substituting Equation 3-24 into Equation 3-30 yields 



y 

1.4192 = -^ 

J-t 



2h 



k 



ry\ 

y^j 



(3-32) 



and 



=1.0023 



yk 

Lh 



1/3 



(3-33) 



Equations 3-31 and 3-33 specify the optimal dimensions of a rectangular fin to 
achieve the maximum heat transfer rate for a given volume and length. [Ref. 
5:p. 156] 

2. Minimum Volume for a Given Heat Transfer and Length 
Substituting Equation 3-29 into Equation 3-27 gives 



hu 

q = kbL ^{T^-T^)X3nh{lAl92) 

V «^o 



(3-34) 



and from this the optimum 5 is obtained 






0.6321 






hk 



L{T^-TJ 



(3-35) 



Then, substituting Equation 3-24 into Equation 3-35 yields 



V ^ 0.6321 
bL hk 



1(7; -Tj 



(3-36) 



and solving Equation 3-33 for V provides 
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y _ b^Lh 

~ (l.0023)'k 



(3-37) 



Then, substituting this result into Equation 3-36 produces 



b^Lh 

{l.0023f kbL 



0.6321 r q Y 

hk 



and the optimum value of the fin height, b is 



(3-38) 



(3-39) 

Equations 3-35 and 3-39 specify the optimal dimensions of a rectangular fin to 
achieve the minimum volume for a given heat transfer rate and length. [Ref. 
5:p. 156] 
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rv. MULTIPLE FIN HEAT TRANSFER THEORY 



A. INTRODUCTION 

In their 1984 landmark paper, Bar-Cohen and Rohsenow described the 
heat transfer and optimization equations for an array of rectangular fins. 
However, they did not provide a design procedure with which to use their data 
to formulate optimum arrays. [Ref. 6:pp. 116-123] 



B. ARRAY OF RECTANGULAR FINS 
1. Heat Dissipation Equation 

In Figure 4-1, adjacent fins form a channel. The channel Rayleigh 
number, Ra’ is defined as 



„^,_p^3PV(r„-r.) 

KU = — 

[iLkf 

where 

• p = density of the surrounding fluid, kg/m^ 

• g = gravitational acceleration, m/s^ 

• P = volumetric coefficient of thermal expansion, 1/°K 

• Cp = specific heat of the surrounding fluid, J/kg°C 

• Z = clear spacing, m 

• 7^ = wall temperature, °C 

• 7^ = ambient temperature, °C 

• |i = dynamic viscosity of the surrounding fluid, kg/m»s 



(4-1) 
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L = fin length, m 

kf = thermal conductivity of the surrounding fluid, W/m°C 




The volumetric coefficient of thermal expansion is 



+ 460°R 



(4-2) 



or, in SI units 



P = 



1 

r^,,-H273.15K 



(4-3) 
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where 



(4-4) 



The dynamic viscosity is 







9c 



where v is the kinematic viscosity of the surrounding fluid and 



^c=32.2 



Ibmft 
Ibf • 



or, in SI units 



9c =1-0 



kg-m 

N-s^ 



If the fins are assumed to be symmetric and isothermal 



(4-5) 



(4-6) 



(4-7) 



- 1/2 

(4.8) 

where NUq is the channel Nusselt number. Thus, the heat transfer coefficient 
is for n fins attached to the wall 



NWo = 



576 2.873 

{Ra'f 






(4-9) 



For a rectangular fin, the parameter m is given by Equation 2-48. The fin 
efficiency, T|, is given by Equation 2-41. The surface area of the wall that is 
open for heat transfer, A^, is 

K = (KK)-W M-10) 

and the combined heat transfer area for all fins, Ap^, is 

Ap^=n{2bL) (4-11) 
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Hence, the total area available for heat transfer, 

Ao,a/ = Av+Mr;m) 



IS 



(4-12) 



and according to Newton’s Law of Cooling 

q = hA,^jT^-Tj (4-13) 

Equation 4-13 is the heat dissipation equation for an array of symmetric, 
isothermal rectangular fins. [Ref. 6:pp. 116-119] 
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V. MULTIPLE FIN OPTIMIZATION THEORY 



A. ARRAY OF RECTANGULAR FINS 

1. Maximimi Heat Transfer for a Given Wall Area 

In an array of symmetric, isothermal rectangular fins, the heat 
transfer rate of each fin decreases as fin spacing decreases. Yet, a reduction in 
fin spacing allows for a greater number of fins to be placed on a wall of given 
dimensions. An optimal fin spacing exists which maximizes the heat transfer 

rate for a given wall area. [Ref. 6:p. 120] 

As the wall will be fully populated with fins to maximize q, is 

assumed to be much greater than A^. Replacing in Equation 4-13 with 

^ fins' 

q = hApjT^-Tj (5-1) 

and substitution of this into Equations 4-9 and 4-11 gives 

<j = iMLN(2bL)(r„-rJ (5-2) 

Z 

To fully populate the wall with fins 



N = 



K 

(z + 5) 



(5-3) 



The value obtained for N from Equation 5-3 must be truncated to produce an 
integral number of fins. Substitution of Equations 4-8 and 5-3 into Equation 5- 
2 gives 
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(5-4) 



- 1/2 

kfiMbV)(T^-T.) 
2 (z + 5) 

and then making a change of variables, 



576 2.873 

{Raf 



Ra' ^ p^g^c^{T^-Tj 



(5-5) 



one obtains 



576 2.873 

+ 



- 1 - 1/2 



<7 = 






kv5 J2[/L)(r^ - rj 



z(z + 5) 



(5-6) 



or 






2k,KbL(T^-T.) 



z(z 4-5) 



576 2.873 

-I- 



1/2 



(5-7) 



Taking the derivative dqfdz, simplifying, and then setting the result equal to 
zero gives 

2z + 35-0.005P^z" = 0 (5-8) 

If the width is assumed to be negligible, 

2.714 



^opt p]/4 



(5-9) 



Equation 5-9 gives the optimal fin spacing to maximize the heat transfer rate 
for a wall of given dimensions. [Ref. 6:p. 120] 



27 



2. Maxunum Heat Transfer from Each Fin 

It is often desired to maximize the heat transfer rate from each fin 
in an array of symmetric, isothermal rectangular fins. Although an infinite fin 
spacing is theoretically required, setting NUq equal to 99% of the isolated fin 

value leads to 

4-64 

^rmx pl/4 (5*10) 

Equation 5-10 gives the optimal fin spacing to maximize the heat transfer rate 
from each fin on a wall of given dimensions. Substituting the of Equation 

5-3 provides the value for the maximum number of fins. [Ref. 6:p. 120] 

The value of is approximately double that of the boundary layer 
thicknesses along each of the surfaces at the channel exit. The value 

coincides with approximately 1.2 boundary layer thicknesses. [Ref. 6:p. 120] 
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VI. COMPUTER PROGRAM DEMONSTRATION 



A. INTRODUCTION 

To provide a demonstration of the computer program, a fin array design 
example involving a wall of given dimensions populated by two different 
arrangements of rectangular fins, is analyzed and the results are compared. 



B. SINGLE NON-STAGGERED FIN ARRAY 

In the first arrangement, the wall is populated by a single, non-staggered 
fin array. The dimensions of the array are shown in Figure 6T. The computer 
program will optimize fin spacing to maximize the array's heat transfer rate. 



cm 




Figure 6-1. Single Non-Staggered Fin Array 
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The program is initiated by the typing the following command at the DOS 
prompt. 

C:\>finopt J 

After the introduction and continuation screens, Figure 6-2 is presented. 




Figure 6-2. Unit System Menu 



As the dimensions in Figure 6-1 are in centimeters, the enter key (J) is pressed 
to select the SI unit system. Figure 6-3 is shown on the screen. 




Figure 6-3. Fin Optimization Menu 
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Enter is pressed to select the multiple fin problem. The drawing in Figure 6-4 is 
then shown on the screen. 
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Figure 6-4. Multiple Fin Drawing 



Figure 6-4 graphically shows the nomenclature for the parameters that will be 
requested by the program so that the optimization and heat transfer 
calculations can be instituted. After pressing any key, the menu in Figure 6-5 is 
displayed. Enter is pressed to choose the third selection listed in the menu. 
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In 

111 






Choose Type of Optimization 

1) No Optimization 

2) Maximum heat transfer 
capability from each 

tin in a given area 

3) Maximum heat transfer 
capability for a given 
area 

Input your selection: [3] 
Press enter to accept default 






Figure 6-5. Type of Optimization Menu 
Figure 6-6 illustrates the format used for the input of the parameters needed 
by the optimization and heat transfer equations. 




Length of the fin placement area = 2.0000E-t01 cm 

Width of the fin placement area (cm) = 

Press enter to accept default or any other key to enter new value 
New value = 25.0 



Figure 6-6. Request for Inputs 

Once the user has supplied the required inputs, the input-output summary 
screens in Figure 6-7 are presented. 
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Inputs => Outputs I 






I 

I Inputs ^ 



Length of the fin placement area 
Width of the fin placement area 
Length of each fin 
Height of each fin 
Width of each fin 



= 2.0000E+01 cm 
= 2.5000E+01 cm 
= 2.0000E+01 cm 
= 5.0000E+00 cm 
= 2.0000E-01 cm 



Density of surroimding fluid = 

Specific heat of surroimding fluid 
Thermal conductivity of material, k 
Thermal conductivity of surrounding fluid, k = 
Kinematic viscosity of surrounding fluid = 

Ambient Temperature 
Wcdl Temperature 



1.1770E+00 kg/mA3 
1.0057E+03 J/(kg*deg-K) 
2.1000E+02 W/(m*deg-K) 
2.6240E-02 W/(m*deg-K) 
1.5680E-05 mA2/s 
2.5000E+01 deg-C 
7.5000E+01 deg-C 




Heat transferred away by the fins, q 
Spacing between fins 
Number of fins 
The fin efficiency 

The temperature at the tip of the fins 
Channel Rayleigh number 
Ch ann el Nusselt number 



= 1.3816E+02 W 
= 7.0603E-01 cm 
= 2.7000E-f01 fins 
= 9.8116E-01 
= 7.3589E+01 deg-C 
= 5.4255E-I-01 
= 1.3066E-(-00 




Figure 6-7. Input-Output Summary 



The user can print the summary information in Figure 6-7 by performing a DOS 
screen dump, simultaneously pressing the Shift and Print Screen keys. The 
information can be imported into a word processor for editing by running the 
program under Microsoft Windows and using its clipboard screen capture 
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functions [Ref. 7:pp. 248-250]. Pressing any key will produce the drawing in 
Figure 6-8. 
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Figure 6-8. Input-Output Summary Drawing 

The drawing in Figure 6-8 graphically displays the outputs of the optimization 
calculations. 
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In the second arrangement, the wall is populated by two staggered fin 
arrays. The dimensions of the arrays are shown in Figure 6-9. Each array will 
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be dealt with separately. The heat transfer rate for a single array will be 
calculated and doubled to find the total heat transfer rate for the wall of given 
dimensions. 




25 cm 





10 cm 



10 cm 
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1. Scime Spacing and Number of Fins 

First, the staggered fin problem is examined using the spacing and 
number of fins found in the previous non-staggered fin example. Pressing any 
key after viewing the drawing in Figure 6-8 results in the continuation menu in 
Figure 6-10. 



Pressing Enter will allow the user to continue in the program. All the defaults 
are set to the values inputted by the user in the preceding problem to facilitate 
rapid sensitivity analysis. After proceeding through the screens in Figures 6-2, 
6-3, and 6-4, the first item, "No Optimization," is chosen from the menu in 
Figure 6-5. This option will allow the user to input the fin spacing and number 
of fins rather than conducting an optimization of those values. The 
parameters required by the heat transfer equations are inputted in the format 
demonstrated in Figure 6-6. Once the user has supplied the required inputs, 
the input-output summary screens in Figure 6-11 are presented. 




Figure 6-10. Continuation Menu 
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I 



Inputs => Outputs I 

■ S« 







Length of the fin placement area 
Width of the fin placement area 
Length of each fin 
Height of each fin 
Width of each fin 



= l.OOOOE+01 cm 
= 2.5000E+01 cm 
= l.OOOOE+01 cm 
= 5.0000E+00 cm 
= 2.0000E-01 cm 



Spacing between fins = 

Nmnber of fins 

Density of surrounding fluid = 

Specific heat of surrounding fluid 
Thermal conductivity of material, k 
Thermal conductivity of surroimding fluid, k = 
Kinematic viscosity of smrounding fluid = 

Ambient Temperature 
WaU Temperature 



7.0603E-01 cm 
2.7000E+01 fins 
1.1770E+00 kg/mA3 
1.0057E+03 J/(kgMeg-K) 
2.1000E+02 W/(m*deg-K) 
2.6240E-02 W/(m*deg-K) 
1.5680E-05 mA2/s 
2.5000E+01 deg-C 
7.5000E+01 deg-C 




Heat transferred away by the fins, q 
The fin efficiency 

The temperature at the tip of the fins 
Channel Rayleigh number 
Channel Nusselt munber 



= 9.2229E-I-01 W 
= 9.7490E-01 
= 7.3120E-I-01 deg-C 
= 1.085 1E-H02 
= 1.7549E-I-00 




Figure 6-11. Input-Output Summary 



The value for the single array heat transfer rate, q, is doubled to obtain for 
the given wall area. 
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q,„, = 2(92.229) = 184.46 W 



( 6 - 1 ) 



The improvement is 



184.46-138.16 

138.16 



33.5% 



( 6 - 2 ) 



and one may conclude that staggering the arrays produces a 33.5% increase in 
the heat transfer rate, without any change in the number of fins, spacing, or 
materials required. Unfortunately the machining required to produce staggered 
fin arrays may be expensive. 

2. Optimization of Spacing and Number of Fins 

The increase in the heat transfer rate shown in Equation 6-2 can be 
further enhanced by optimizing the number of fins and spacing in the 
individual fin arrays. Again the third item is chosen from the menu in Figure 
6-5. The input-output summary screens produced are shown in Figure 6-12. 
The value obtained for q is again doubled to obtain for the given wall 

dimensions. 

= 2(92.944) = 185.89 W (6-3) 



and 



and, in addition 



185.89-138.16 

138.16 



34.5% 



(6-4) 



185.89-184.46 

184.46 



0.775% 



(6-5) 



The percentage increase found in Equation 6-5 is small, since the non-staggered 
array of fins had already been previously optimized. 
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ll 



Inputs => Outputs 






Inputs I 



Length of the fin placement area 

Width of the fin placement area 

Length of each fin 

Height of each fin 

Width of each fin 

Density of surroxmding fluid 

Specific heat of snrroimding fluid 

Thermcd conductivity of material, k 

Thermcd conductivity of srurounding fluid, k = 

Kinematic viscosity of surrounding fluid = 

Ambient Temper atirre = 

Wall Temperature 



l.OOOOE+01 cm 
2.5000E+01 cm 
l.OOOOE+01 cm 
5.0000E+00 cm 
2.0000E-01 cm 
1.1770E+00 kg/mA3 
1.0057E+03 J/(kg*deg-K) 
2.1000E+02 W/(m*deg-K) 
2.6240E-02 W/(m*deg-K) 
1.5680E-05 mA2/s 
2.5000E+01 deg-C 
7.5000E+01 deg-C 



I Outputs 



Heat transferred away by the fins, q 
Spacing between fins 
Number of fins 
The fin efficiency 

The temperature at the tip of the fins 
Channel Rayleigh number 
Channel Nusselt number 



= 9.2944E-I-01 W 
= 5.9370E-01 cm 
= 3.1000E-I-01 fins 
= 9.7770E-01 
= 7.3329E-H01 deg-C 
= 5.4255E+01 
= 1.3066E-I-00 




Figure 6-12. Input-Output Summary 
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VII. CONCLUSION 



In the design of electronic equipment, a proper heat sink configuration is 
essential. As the design example in the previous section demonstrates, the 
computer program developed for this thesis can serve to greatly simplify and 
accelerate the fin design process. The program should prove to be valuable tool 
to electronic component designers, especially those with a limited background 
in heat transfer and fin optimization theory. A listing of the source code for 
the computer program is included in the Appendix. 
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APPENDIX 



SOURCE CODE FOR THE COMPUTER PROGRAM 



— Title : EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS 

: A COMPUTER OPTIMIZATION 

— Author : John Reynold Censure 

-- Date : June 1992 

with TEXT_IO, COMMON_DISPLAY_TYPES , TTY, CURSOR, VIDEO, 
FINOPT^SINGLE, FINOPT_MULTIPLE, FINOPT_PICTURES , 

FINOPT_DRAWINGS ; 

use TEXT_IO, COMMON_DISPLAY_TYPES , FINOPT_SINGLE, FINOPT_MULTIPLE; 

procedure FINOPT is 

PAUSE, CONTINUE, UNITS, FIN_SING_MULT, FIN_CYL_RECT, 

FIN_OPT_TYP, DEFAULT_KEY : 

INTEGER; 

SPACING_ENGLISH, DENSITY_ENGLISH, SPECIFIC_HEAT_ENGLISH, 

NU_ENGLI SH , K_FLUI D_ENGLI SH , WALL_LENGTH_ENGLI SH, 

WALL_WIDTH_ENGLISH, DIAMETER_ENGLISH, HEIGHT_ENGLISH, 

WI DTH_ENGLI SH , LENGTH_ENGLI SH , VOLUME_ENGLI SH , H_ENGLI SH , 

K_ENGLISH, T_AMBIENT_ENGLISH, T_WALL_ENGLISH, Q_ENGLISH, 

SPACING_SI, DENSITY_SI, SPECIFIC_HEAT_SI , NU_SI, 

K_FLUID_SI, WALL_LENGTH_SI, WALL_WIDTH_SI , DIAMETER_SI, 

HEIGHT_SI, WIDTH_SI, LENGTH_SI, VOLUME_SI, H_SI, K_SI, 

T_AMBIENT_SI, T_WALL_SI, Q_SI, SPACING, DENSITY, 

SPECIFIC_HEAT, NU, K_FLUID, WALL_LENGTH, WALL_WIDTH, 

DIAMETER, HEIGHT, WIDTH, LENGTH, VOLUME, H, K, T_AMBIENT, 

T_WALL, Q, CONVERT_DIST, CONVERT_TEMP, GRAVITY, G_C, 

AREA_PROFILE, NUM_FINS, NUM_FINS_ENGLISH, NUM_FINS_SI : FLOAT; 

PI : constant := 3.14159_26535_89793_23846_26433_83279_50288_41972; 

SPACING_UNITS, WALL_LENGTH_UNITS , 

WALL_WIDTH_UNITS, DIAMETER_UNITS, HEIGHT_UNITS , 

WIDTH_UNITS, LENGTH_UNITS : 

STRING (1. .2) ; 

VOLUME_UNITS, NUM_FINS_UNITS : 

STRING (1. .4) ; 

T_UNITS : 

STRING (1. .5) ; 

NU_UNITS, Q_UNITS : 

STRING (1. . 6) ; 
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DENSITY_UNITS : 

STRING (1. .8) ; 

NUMBER_OUT : 

STRINGd. . 10) ; 

WIDTH_MSG, LENGTH_MSG, DIAMETER_MSG, 

HEIGHT_MSG, SPACING_MSG, WALL_LENGTH_MSG, 

WALL_WIDTH_MSG : 

STRINGd. .13) ; 

SPECIFIC_HEAT_UNITS : 

STRINGd. .15) ; 

K_UNITS : 

STRINGd. . 17) ; 

H_UNITS : 

STRINGd. . 19) ; 

INPUT_MSG 
STRINGd. .33) ; 

CHAR : CHARACTER; 

paclcage FLOAT_INOUT is new FLOAT_IO (FLOAT) ; 

use FLOAT INOUT; 



begin 



— 


Introduction 


Page 


— 


VIDEO. 


SET COLOR PALETTE (BLUE) ; 






FINOPT 


_PICTURES . THESIS_MSG; 






— 


Output Program 


Name 


— 


FINOPT 


_PICTURES . FINOPT_MSG; 






— 


Initialize Variables 


English System 


— 



SPACING_ENGLISH := 0.5/ 

— Spacing (in) 

DENSITY_ENGLISH := 0.05928; 

— Density of surrounding fluid (lbm/ft^3) 

SPECIFIC_HEAT_ENGLISH := 0.2404; 

— Specific heat of surrounding fluid (BTU/ (lbm*deg-R) ) 
NU_ENGLISH := 19.1774E-5; 

-- Kinematic viscosity of surrounding fluid (ft''2/s) 
K_FLUID_ENGLISH := 0.01608; 

-- Thermal conductivity of surrounding fluid (BTU/ (hr*ft*deg-R) ) 
WALL_LENGTH_ENGLISH := 6.0; 

— Length of multi-fin placement area (in) 
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WALL_WIDTH_ENGLISH := 9.0; 

-- Width of multi-fin placement area (in) 

DIAMETER_ENGLISH := 0.3125; 

-- Diameter (in) 

— HEIGHT_ENGLISH := 4.5; 

— Height (in) 

WIDTH_ENGLISH := 0.0625; 

-- Width (in) 

LENGTH_ENGLISH ;= 2.25; 

— Length (in) 

VOLUME_ENGLISH := 0.3451; 

— Volume (in^3) 

H_ENGLISH := 1.0; 

— Convection heat transfer coefficient (BTU/ (hr* f t"^2*deg-R) ) 
K_ENGLISH := 24.8; 

-- Thermal conductivity (BTU/ (hr* ft*deg-R) ) 

T_AMBIENT_ENGLISH := 70.0; 

— Ambient Temperature (deg-F) 

T_WALL_ENGLISH := 200.0; 

— Wall temperature (deg-F) 

Q_ENGLISH := 3.13; 

— Heat transferred (BTU/hr) 



Initialize Variables SI System 



SPACING_SI := 1.04; 

— Spacing (cm) 

DENSITY_SI := 1.177; 

— Density of surrounding fluid (kq/m^3) 

SPECIFIC_HEAT_SI := 1005.7; 

— Specific heat of surrounding fluid ( J/ (kg*deg-K) ) 

NU_SI := 1.568E-5; 

— Kinematic viscosity of surrounding fluid (m^2/s) 
K_FLUID_SI := 0.02624; 

-- Thermal conductivity of surrounding fluid (W/ (m*deg-K) ) 
WJALL_LENGTH_S I : = 9.0; 

— Length of multi-fin placement area (in) 

WALL_WIDTH_SI := 22.14; 

— Width of multi-fin placement area (in) 

DIAMETER_SI := 0.7; 

— Diameter (cm) 

HEIGHT_SI := 4.7; 

— Height (cm) 

WIDTH_SI := 0.18; 

-- Width (cm) 

LENGTH_SI := 9.0; 

— Length (cm) 

V0LUME_SI := 16.3516; 

— Volume (cm^^3) 

H_SI := 7.0; 

— Convection heat transfer coefficient (W/ (m""2*deg-K) ) 
K_SI := 236.0; 

— Thermal conductivity (W/ (m*deg-K) ) 

T_AMBIENT_SI := 20.0; 

-- Ambient temperature (deg-C) 
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T_WALL_SI := 60.0; 

— Wall temperature (deg-C) 
Q_SI := 5.902; 

— Heat transferred (W) 



Continue? 



loop 

TTY. CLEAR SCREEN; 
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II 

9 


YELLOW, RED) ; 


TTY. PUT 


(11, 


24, 


II 




1) Exit to DOS 


II 

9 


YELLOW, RED) ; 


TTY. PUT 


(12, 
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II 

9 


YELLOW, RED) ; 


TTY. PUT 


(13, 
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2) Continue 


II 

9 


YELLOW, RED) ; 


TTY. PUT 


(14, 


24, 
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II 

9 


YELLOW, RED) ; 


TTY. PUT 


(15, 


24, 


II 


Input your 


selection: [2] 


II 

9 


YELLOW, RED) ; 


TTY. PUT 


(16, 


24, 


It 


Press 


; enter 


to accept default 


II 

9 


BRIGHT_WHITE, 


TTY. PUT 


1 — 1 


24, 


II 








II 

9 


YELLOW, RED) ; 



CURSOR. SET_SIZE( 13, 13) ; 
loop 

CURSOR. MOVE (15, 50); 

TTY. GET (CONTINUE, CHAR) ; 

if CONTINUE = 2 or CONTINUE = 3 or CONTINUE = 28 then 
exit; 
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else 

TTY. PUT {21, 2A , *’ Improper input, please reenter 

BLUE, CYAN) ; 
end if; 
end loop; 

CURSOR. INHIBIT; 



Do Not Continue 



exit when CONTINUE = 2; 



Continue With Program 



Select Unit System 



TTY. CLEAR SCREEN; 



TTY. PUT 
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CM 
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CYAN) 


/ 
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CYAN) 
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(14, 
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TTY. PUT 


(15, 
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(15, 
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(16, 
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TTY. PUT 


(16, 


55, 


II 
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(17, 
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TTY. PUT 
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TTY. PUT 
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YELLOW, 


CYAN) 


/ 






TTY. PUT 


( 8, 


24, 


II 




TTY. PUT 


( 9, 


24, 


It 
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BRIGHT WHITE, 
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TTY . PUT 
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II 


2) SI 


TTY . PUT 
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CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN) ; 
CYAN ) ; 
CYAN) ; 



red Unit System 


II 

t 

II 

/ 


YELLOW, 


RED) ; 




II 

t 


YELLOW, 


RED) ; 


h Engineering 


II 

9 
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II 

9 


YELLOW, 


RED) ; 




It 

9 


YELLOW, 


RED) ; 




II 

9 


YELLOW, 


RED) ; 
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TTY. PUT (15, 24, *’ Input your selection: [2] ", YELLOW, RED) ; 

TTY. PUT (16, 24, " Press enter to accept default ", BRIGHT_WHITE, 

RED) ; 

TTY. PUT (17, 24, " ", YELLOW, RED); 

CURSOR. SET_SIZE( 13, 13) ; 

loop 

CURSOR. MOVE (15, 50); 

TTY . GET ( UNITS , CHAR) ; 

if UNITS = 2 or UNITS = 3 or UNITS = 28 then 
exit ; 
else 

TTY. PUT (21, 24, " Improper input, please reenter ", 

BLUE, CYAN); 
end if; 
end loop; 

CURSOR. INHIBIT; 



Use English Engineering System 



if (UNITS = 2) then 

CONVERT__DIST := 12.0; 

Convert inches to feet 
CONVERT_TEMP := 460.0; 

Convert deg-F to deg-R 
GRAVITY := 32.2; 

Acceleration of gravity (ft/s'^2) 

G_C := 32.2; 

Conversion factor (lbm*f t/ (Ibf *s^2 ) ) 
SPACING := SPACING_ENGLISH; 

SPACING__UNITS := "in"; 

DENSITY := DENSITY_ENGLISH; 

DENSITY_UNITS ;= "Ibrn/ft^^S"; 

SPECIFIC__HEAT := SPECIFIC_HEAT_ENGLISH; 
SPECIFIC__HEAT_UNITS := "BTU/ ( lbm*deg-R) " ; 
NU := NU_ENGLISH; 

NU__UNITS := "ft^2/s"; 

WALL_LENGTH := WALL_LENGTH_ENGLISH; 
WALL_LENGTH_UNITS := "in"; 

WALL_WIDTH := WALL__WIDTH_ENGLISH; 
WALL_WIDTH__UNITS := "in"; 

NUM_FINS_UNITS := "fins"; 

DIAMETER ;= DIAMETER__ENGLISH; 
DIAMETER_UNITS := "in"; 

HEIGHT := HEIGHT_ENGLISH; 

HEIGHT__UNITS := "in"; 

WIDTH := WIDTH_ENGLISH; 

WIDTH_UNITS := "in"; 

LENGTH := LENGTH_ENGLISH; 

LENGTH__UNITS := "in"; 

VOLUME := VOLUME__ENGLISH; 

VOLUME__UNITS := "in'^S"; 

H := H__ENGLISH; 

H_UNITS := "BTU/ (hr*ft^2*deg-R) "; 

K := K_ENGLISH; 

K FLUID := K FLUID ENGLISH; 
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K_UNITS := "BTU/ (hr*ft*deg-R) 
T_AMBIENT ;= T_AMBIENT_ENGLISH; 
T_WALL := T_WALL_ENGLISH; 
T_UNITS := "deg-F"; 

Q := Q_ENGLISH; 

Q UNITS := "BTU/hr"; 



Use SI System 



else 

CONVERT_DIST := 100.0; 

Convert centimeters to meters 
CONVERT_TEMP := 273.15; 

Convert deg-C to deg-K 
GRAVITY := 9.81; 

Acceleration of gravity (m/s''2) 

G_C := 1.0; 

Conversion factor (kg*m/ (N*s^2) ) 
SPACING := SPACING_SI; 

SPACING_UNITS := "cm"; 

DENSITY := DENSITY_SI; 

DENSITY_UNITS := "kg/m^3 "; 

SPECIFIC_HEAT := SPECIFIC_HEAT_SI; 
SPECIFIC_HEAT_UNITS := " J/ { kg*deg-K) 
NU := NU_SI; 

NU_UNITS := "m''2/s "; 

WALL_LENGTH := WALL_LENGTH_SI ; 
WALL_LENGTH_UNITS := "cm"; 
WALL_WIDTH := WALL_WIDTH_SI ; 
WALL_WIDTH_UNITS := "cm"; 
NUM_FINS_UNITS := "fins"; 

DIAMETER := DIAMETER_SI; 
DIAMETER_UNITS := "cm"; 

HEIGHT := HEIGHT_SI; 

HEIGHT_UNITS := "cm"; 

WIDTH := WIDTH_SI; 

WIDTH_UNITS := "cm"; 

LENGTH := LENGTH_SI; 

LENGTH_UNITS := "cm"; 

VOLUME := VOLUME_SI; 

VOLUME_UNITS := "cm^3"; 

H := H_SI; 

H_UNITS := "W/ (m''2*deg-K) "; 

K := K_SI; 

K_FLUID := K_FLUID_SI; 

K_UNITS := "W/ (m*deg-K) 

T_AMBIENT := T_AMBIENT_SI ; 

T_WALL := T_WALL_SI; 

T_UNITS := "deg-C"; 

Q := Q_SI; 

Q_UNITS := "W 
end if; 



Select Single or Multiple Fin Optimization 
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TTY. CLEAR SCREEN; 
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(14, 
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CYAN) ; 






TTY. PUT 
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YELLOW, 


CYAN) ; 






TTY. PUT 
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YELLOW, 


CYAN) ; 






TTY. PUT 
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YELLOW, 


CYAN) ; 






TTY. PUT 
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CYAN) ; 






TTY. PUT 
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CYAN) ; 






TTY. PUT 


(17, 


55, 
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YELLOW, 


CYAN) ; 






TTY. PUT 
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21, 
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It 
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YELLOW, 


CYAN) 
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YELLOW, 


CYAN) 
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TTY . PUT 
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YELLOW, RED) ; 


TTY . PUT 
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Select Fin 


L Optimization 
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TTY. PUT 
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YELLOW, RED) ; 


TTY. PUT 
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1) Singl 
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TTY . PUT 
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YELLOW, RED) ; 


TTY. PUT 
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24, 
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2) Multiple Fins 
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TTY. PUT 
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YELLOW, RED) ; 


TTY. PUT 


(15, 


24, 
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Input your 


selection; [2] 
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YELLOW, RED) ; 


TTY. PUT 


(16, 


24, 


II 


Press 


; enter to accept default 


II 
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BRIGHT_WHITE, 


TTY. PUT 


(17, 


CM 


It 








II 

t 


YELLOW, RED) ; 



CURSOR. SET_SIZE{ 13, 13) ; 
loop 

CURSOR. MOVE (15, 50); 

TTY. GET (F1N_S1NG_MULT, CHAR) ; 
if F1N_S1NG_MULT = 2 or F1N_S1NG_MULT = 3 or 
F1N_S1NG_MULT =28 then 
exit; 
else 

TTY. PUT (21, 24, " Improper input, please reenter ", 
BLUE, CYAN) ; 
end if; 
end loop; 

CURSOR. INHIBIT; 
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Single Fin Problem, Select Cylindrical or Rectangular Fin Type 



if (FIN_SING_MULT = 2) then 
TTY. CLEAR SCREEN; 







TTY. PUT 
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TTY. PUT 


( 9, 


21, 


tt 


tt 

/ 


YELLOW, 


CYAN) ; 
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TTY. PUT 


(10, 


21, 


ti 


tt 

f 


YELLOW, 


CYAN) ; 
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TTY. PUT 


(12, 


21, 


tt 


tt 

/ 


YELLOW, 


CYAN) ; 








TTY. PUT 


(12, 


55, 


tt 


tt 

/ 


YELLOW, 


CYAN) ; 
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2) Rectangular fin 
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selection: [2] 
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TTY. PUT 


(16, 
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Press enter 


to accept default 


tt 



BRIGHT_WHITE, RED) ; 

TTY. PUT (17, 24, " 

RED) ; 

CURSOR. SET_SI2E (13, 13) ; 
loop 

CURSOR. MOVE (15, 50); 



, YELLOW, 

t 

, YELLOW, 
, YELLOW, 
, YELLOW, 
, YELLOW, 
, YELLOW, 
, YELLOW, 
/ 

, YELLOW, 
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TTY. GET (FIN_CYL_RECT, CHAR) ; 
if FIN_CYL_RECT = 2 or FIN_CYL_RECT = 3 or 
FIN_CYL_RECT =28 then 
exit; 
else 

TTY. PUT (21, 24, " Improper input, please reenter ", 
BLUE, CYAN) ; 
end i f ; 
end loop; 

CURSOR. INHIBIT; 



Single Fin Problem, Cylindrical Spine, 
Draw Cylindrical Spine 



if (FIN_CYL_RECT = 2) then 
DIAMETER_MSG := "Diameter 
HEIGHT_MSG ;= " Height 

FINOPT_DRAWINGS.CYLINDRICAL_DRAWING (DIAMETER_MSG, 

HEIGHT MSG) ; 



Single Fin Problem, Cylindrical Spine 
Choose Optimization 



TTY. CLEAR SCREEN; 
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TTY. PUT 
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TTY . PUT 


(18, 


24, " 


Press enter to accept default 
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It 
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YELLOW 



RED) ; 

CURSOR. SET_SIZE( 13, 13) ; 
loop 

CURSOR. MOVE (17, 50); 

TTY. GET (FIN_OPT_TYP, CHAR) ; 
if FIN_OPT_TYP = 2 or FIN_OPT_TYP = 3 or 
FIN OPT TYP = 4 or FIN OPT TYP =28 then 



exit; 

else 

TTY. PUT (23, 24, " Improper input, please reenter ", 
BLUE, CYAN); 



end if; 



end loop; 
CURSOR. INHIBIT; 
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Single Fin Problem, Cylindrical Spine, No Optimization 



if (FIN_OPT_TYP = 2) then 

CYLINDRICAL_NO_OPT (UNITS, CONVERT_DIST, DIAMETER, 
DIAMETER_UNITS, HEIGHT, HEIGHT_UNITS , H, H_UNITS, K, 
K UNITS, T AMBIENT, T_WALL, T_UNITS, Q, Q_UNITS); 



Single Fin Problem, Cylindrical Spine, Maximum Heat 
Transfer Capability for a Given Volume 



elsif (FIN_OPT_TYP = 3) then 

CYLINDRICAL_GIVEN_VOL (UNITS, CONVERT_DIST, VOLUME, 
VOLUME_UNITS, DIAMETER, DIAMETER_UNITS , HEIGHT, 
HEIGHT_UNITS, H, H_UNITS, K, K_UNITS, T_AMBIENT, 

T WALL, T UNITS, Q, Q UNITS); 



Single Fin Problem, Cylindrical Spine, Minimum Volume 
for a Given Heat Transfer Capability 



else 

CYLINDRICAL_GIVEN_Q (UNITS, CONVERT_DIST, DIAMETER, 
DIAMETER_UNITS, HEIGHT, HEIGHT_UNITS , H, H_UNITS, K, 
K_UNITS, T_AMBIENT, T_WALL, T_UNITS, Q, Q_UNITS); 
end if; 



Single Fin Problem, Cylindrical Spine 
Draw Cylindrical Spine With Calculated Dimensions 



PUT (DIAMETER_MSG(1. . 10) , DIAMETER, 4, 3); 
DIAMETER__MSG(11) := * *; 

DIAMETER_MSG ( 12 . . 13 ) : = DIAMETER_UNITS ; 

PUT (HEIGHT_MSG(1. . 10) , HEIGHT, 4, 3); 
HEIGHT_MSG(11) := * *; 

HEIGHT_MSG(12 . . 13) := HEIGHT_UNITS; 

FINOPT_DRAWINGS . CYLINDRICAL_DRAWING (DIAMETER_MSG, 

HEIGHT MSG) ; 



Single Fin Problem, Rectangular Fin, 
Draw Rectangular Fin 



else 

WIDTH_MSG := *’Width 
LENGTH_MSG := "Length 
HEIGHT_MSG := " Height 

FINOPT_DRAWINGS. RECTANGULAR_DRAWING (WIDTH_MSG, LENGTH_MSG, 
HEIGHT MSG) ; 



Single Fin Problem, Rectangular Fin 
Choose Optimization 
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CURSOR. SET_SIZE( 13, 13) ; 
loop 

CURSOR. MOVE (17, 50); 

TTY. GET (F1N_0PT_TYP, CHAR) ; 
if F1N_0PT_TYP = 2 or F1N_0PT_TYP = 3 or 
F1N_0PT_TYP = 4 or F1N_0PT_TYP =28 then 
exit ; 
else 

TTY. PUT (23, 24, " Improper input, please reenter ”, 

BLUE, CYAN); 
end if; 
end loop; 

CURSOR. INHIBIT; 



Single Fin Problem, Rectangular Fin, No Optimization 



if (F1N_0PT_TYP = 2) then 

RECTANGULAR_NO_OPT (UNITS, C0NVERT_D1ST, LENGTH, 
LENGTH_UN1TS, HEIGHT, HE1GHT_UN1TS, WIDTH, 
W1DTH_UN1TS, H, H_UN1TS, K, K_UN1TS, T_AMB1ENT, 
T WALL, T UNITS, Q, Q UNITS) ; 



Single Fin Problem, Rectangular Fin, Maximum Heat 
Transfer Capability for a Given Volume and Length 



elsif (F1N_0PT_TYP = 3) then 

RECTANGULAR_G1VEN_V0L (UNITS, C0NVERT_D1ST, VOLUME, 
V0LUME_UN1TS, LENGTH, LENGTH_UN1TS , HEIGHT, HE1GHT_UN1TS , 
WIDTH, W1DTH_UNITS, H, H_UNITS, K, K_UN1TS, 

T AMBIENT, T WALL, T UNITS, Q, Q UNITS); 



Single Fin Problem, Rectangular Fin, Minimum Volume 
for a Given Heat Transfer Capability 
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else 

RECTANGULAR_GIVEN_Q (UNITS, CONVERT_DIST, LENGTH, 
LENGTH_UNITS, HEIGHT, HEIGHT_UNITS , WIDTH, 
WIDTH_UNITS, H, H_UNITS, K, K_UNITS, T_AMBIENT, 
T_WALL, T_UNITS, Q, Q_UNITS); 
end if; 



Single Fin Problem, Rectangular Fin, 

Draw Rectangular Fin With Calculated Dimensions 



PUT (WIDTH_MSG(1. . 10) , WIDTH, 4, 3) ; 

WIDTH_MSG(11) := * *; 

WIDTH_MSG(12. . 13) ;= WIDTH_UNITS; 

PUT (LENGTH_MSG(1. . 10) , LENGTH, 4, 3); 

LENGTH_MSG(11) := * *; 

LENGTH_MSG(12. . 13) := LENGTH_UNITS ; 

PUT (HEIGHT_MSG(1. . 10) , HEIGHT, 4, 3) ; 

HEIGHT_MSG(11) := * *; 

HEIGHT_MSG(12. .13) := HEIGHT_UNITS ; 

FINOPT_DRAWINGS . RECTANGULAR_DRAWING (WIDTH_MSG, LENGTH_MSG, 
HEIGHT_MSG) ; 
end if; 



Multiple Fin Problem, Rectangular Fins, Draw Rectangular Fins 



else 

WIDTH_MSG 

LENGTH_MSG 

HEIGHT_MSG 

SPACING_MSG 

WALL_LENGTH_MSG 

WALL WIDTH MSG 



Width *’ ; 

Length ” ; 

Height" ; 

Spacing “ ; 

Wall Length 
Wall Width " ; 

FINOPT_DRAWINGS .MULTI_FIN_DRAWING (WIDTH_MSG, LENGTH_MSG, 
HEIGHT MSG, SPACING MSG, WALL LENGTH MSG, WALL WIDTH MSG) ; 



Multiple Fin Problem, Rectangular Fins, Choose Optimization 
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RED) ; 



TTY. PUT (19, 24 
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CURSOR. SET_SIZE (13, 13) ; 
loop 

CURSOR. MOVE (17, 50); 

TTY. GET (FIN_OPT_TYP, CHAR) ; 
if FIN_OPT_TYP = 2 or FIN_OPT_TYP = 3 or 
FIN_OPT_TYP = 4 or FIN_OPT_TYP =28 then 
exit; 
else 

TTY. PUT (23, 24, ” Improper input, please reenter ", 
BLUE, CYAN) ; 
end if; 
end loop; 

CURSOR. INHIBIT; 



Multiple Fin Problem, Rectangular Fins, No Optimization 



if (FIN_OPT_TYP = 2) then 

MULTIPLE_NO_OPT (UNITS, CONVERT_DIST, CONVERT_TEMP, G_C, 
GRAVITY, WALL_LENGTH, WALL_LENGTH_UNITS, WALL_WIDTH, 
WALL_WIDTH_UNITS, LENGTH, LENGTH_UNITS, HEIGHT, 
HEIGHT_UNITS, WIDTH, WIDTH_UNITS, SPACING, 
SPACING_UNITS, NUM_FINS, NUM_FINS_UNITS, DENSITY, 
DENSITY_UNITS, SPECIFIC_HEAT, SPECIFIC_HEAT_UNITS, K, 
K_FLUID, K_UNITS, NU, NU_UNITS, T_AMBIENT, T_WALL, 

T UNITS, Q, Q UNITS); 



Multiple Fin Problem, Rectangular Fins, Maximum Heat 
Transfer Capability From Each Fin in a Given area 



elsif (FIN_OPT_TYP = 3) then 

MULTIPLE_MAX_FIN (UNITS, CONVERT_DIST, CONVERT_TEMP, G_C, 
GRAVITY, WALL_LENGTH, WALL_LENGTH_UNITS, WALL_WIDTH, 
WALL_WIDTH_UNITS, LENGTH, LENGTH_UNITS, HEIGHT, 
HEIGHT_UNITS, WIDTH, WIDTH_UNITS, SPACING, 

SPACING_UNITS, NUM_FINS, NUM_FINS_UNITS, DENSITY, 
DENSITY_UNITS, SPECIFIC_HEAT, SPECIFIC_HEAT_UNITS, K, 
K_FLUID, K^UNITS, NU, NU_UNITS, T_AMBIENT, T_WALL, 

T UNITS, Q, Q UNITS) ; 



Single Fin Problem, Rectangular Fin, Maximum Heat Transfer 
Capability for a Given Area 



else 

MULTIPLE_MAX_Q (UNITS, CONVERT_DIST, CONVERT_TEMP, G_C, 
GRAVITY, WALL_LENGTH, WALL_LENGTH_UNITS, WALL_WIDTH, 
WALL_WIDTH_UNITS, LENGTH, LENGTH_UNITS, HEIGHT, 
HEIGHT_UNITS, WIDTH, WIDTH_UNITS, SPACING, 
SPACING_UNITS, NUM_FINS, NUM_FINS_UNITS, DENSITY, 
DENSITY_UNITS, SPECIFIC_HEAT, SPECIFIC_HEAT_UNITS, K, 
K_FLUID, K^UNITS, NU, NU_UNITS, T_AMBIENT, T_WALL, 

T UNITS, Q, Q_UNITS) ; 
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end if; 



Multiple Fin Problem, Rectangular Fins, 

Draw Rectangular Fins With Calculated Dimensions 



PUT (WIDTH_MSG(1. .10) , WIDTH, 4, 3 ); 

WIDTH_MSG(11) := ’ 

WIDTH_MSG(12. . 13) ;= WIDTH_UNITS ; 

PUT (LENGTH_MSG (1. . 10) , LENGTH, 4, 3); 

LENGTH_MSG(11) := * *; 

LENGTH_MSG ( 12 . . 13 ) : = LENGTH_UNITS ; 

PUT (HEIGHT_MSG(1. . 10) , HEIGHT, 4, 3); 

HEIGHT_MSG(11) := ’ *; 

HEIGHT_MSG(12. . 13) := HEIGHT_UNITS ; 

PUT (SPACING_MSG(1. .10) , SPACING, 4, 3); 

SPACING_MSG(11) := * *; 

SPACING_MSG (12 . . 13) := SPACING_UNITS; 

PUT (WALL_LENGTH_MSG (1 . . 10) , WALL_LENGTH, 4, 3) ; 
WALL_LENGTH_MSG (11) : = * 

WALL_LENGTH_MSG ( 12 . . 13 ) : = WALL_LENGTH_UNITS ; 

PUT (WALL_WIDTH_MSG(1. . 10) , WALL_WIDTH, 4, 3); 
WALL_WIDTH_MSG(11) := * *; 

WALL_WIDTH_MSG(12. .13) := WALL_WIDTH_UNITS ; 

FINOPT_DRAWINGS .MULTI_FIN_DRAWING (WIDTH_MSG, LENGTH_MSG, 
HEIGHT_MSG, SPACING_MSG, WALL_LENGTH_MSG, WALL_WIDTH_MSG) ; 
end if; 



Reinitialize Variables 



if (UNITS = 2) then 

SPACING_ENGLISH := SPACING; 
DENSITY_ENGLISH := DENSITY; 
SPECIFIC_HEAT_ENGLISH := SPECIFIC_HEAT; 
NU_ENGLISH := NU; 

K_FLUID_ENGLISH := K_FLUID; 
WALL_LENGTH_ENGLISH := WALL_LENGTH; 
WALL_WIDTH_ENGLISH := WALL_WIDTH; 
NUM_FINS_ENGLISH := NUM_FINS; 
DIAMETER_ENGLISH := DIAMETER; 
HEIGHT_ENGLISH := HEIGHT; 

WIDTH_ENGLISH := WIDTH; 

LENGTH_ENGLISII := LENGTH; 

VOLUME_ENGLISH := VOLUME; 

H_ENGLISH := H; 

K_ENGLISH := K; 

T_AMBIENT_ENGLISH := T_AMBIENT; 
T_WALL_ENGLISH := T_WALL; 

Q_ENGLISH := Q; 
else 

SPACING_SI := SPACING; 

DENSITY_SI DENSITY; 

SPECIFIC_HEAT_SI := SPECIFIC_HEAT; 

NU_SI := NU; 

K FLUID SI := K FLUID; 
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WALL_LENGTH_SI := WALL_LENGTH; 
WALL_WIDTH_SI := WALL_WIDTH; 
NUM_FINS_SI := NUM_FINS ; 
DIAMETER_SI := DIAMETER; 
HEIGHT_SI := HEIGHT; 

WIDTH_SI := WIDTH; 

LENGTH_SI := LENGTH; 

VOLUME_SI := VOLUME; 

H_SI := H; 

K_SI := K; 

T_AMBIENT_SI := T_AMBIENT; 
T_WALL_SI := T_WALL; 

Q_SI ;= Q; 
end if; 
end loop; 



Exit to DOS 



FINOPT_PICTURES . EXIT_MSG; 

VIDEO. SET_COLOR_PALETTE (BLACK) ; 
CURSOR. MOVE (22, 1); 

CURSOR. SET_SIZE( 13, 13) ; 
end FINOPT; 
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Title 



EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS 
A COMPUTER OPTIMIZATION 

— Author : John Reynold Censure 

— Date : June 1992 

package FINOPT_COMMON is 

procedure GET_INPUT ( INPUT_VALUE 

INPUT_MSG 
SIZE_INPUT_MSG 
I N PUT^VALU E_UN ITS 

SIZE_INPUT_VALUE_UNITS : in INTEGER; 

ROW_START : in INTEGER) ; 

end FINOPT COMMON; 



in out FLOAT; 
in STRING; 
in INTEGER; 
in STRING; 
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Title 



EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS 
A COMPUTER OPTIMIZATION 

— Author : John Reynold Censure 

— Date : June 1992 



with TEXT_IO, COMMON_DISPLAY_TYPES, TTY, CURSOR; 

use TEXT_IO, COMMON_DISPLAY_TYPES ; 

package body FINOPT_COMMON is 

package FLOAT_INOUT is new FLOAT_I O ( FLOAT ) ; 
use FLOAT INOUT; 

: in out FLOAT; 

: in STRING; 

: in INTEGER; 

: in STRING; 

: in INTEGER; 

: in INTEGER) is 

: STRINGd. .10) ; 

: CHARACTER; 

: INTEGER; 



procedure GET_INPUT ( INPUT_VALUE 

INPUT_MSG 

SIZE_INPUT_MSG 

I N PUT_VALU E_UN ITS 

S I Z E_I N PUT^VALU E_UN ITS 

ROW_START 

NUMBER_OUT 

CHAR 

DEFAULT KEY 



begin 

TTY. PUT (ROW_START, 1, INPUT_MSG, YELLOW, BLACK); 

TTY. PUT (ROW_STAJ^T, 1+SIZE_INPUT_MSG, " (”, YELLOW, BLACK); 

TTY. PUT (ROW_START, 3+SIZE_INPUT_MSG, 

INPUT_VALUE_UNITS (1. . SIZE_INPUT_VALUE_UNITS ) , YELLOW, BLACK) ; 

TTY. PUT (ROW_START, SIZE_INPUT_VALUE_UNITS+3+SIZE_INPUT_MSG, ") = 

ft 

f 

YELLOW, BLACK) ; 

TTY. PUT (ROW_START+l, 1, 

"Press enter to accept default or any other Icey to enter new 
value", 

BRIGHT_WHITE, BLACK) ; 

PUT (NUMBER_OUT, INPUT_VALUE, 4, 3) ; 

TTY. PUT (ROW_START, SIZE_INPUT_VALUE_UNITS+7+SIZE_INPUT_MSG, 
NUMBER_OUT, YELLOW, BLACK) ; 

CURSOR. SET_SIZE (13,13); 

TTY. GET (DEFAULT_KEY, CHAR) ; 

CURSOR. INHIBIT; 
if DEFAULT_KEY /= 28 then 
loop 

begin 

TTY . PUT ( ROW_START , 

SIZE_INPUT_VALUE_UNITS+7+SIZE_INPUT_MSG, 

" ", BLACK, BLACK); 

TTY. PUT (ROW_START+2, 1, "New value = ", BRIGHT_WHITE, 

BLACK) ; 

CURSOR. SET_SIZE (13,13); 

GET (INPUT_VALUE) ; 

SKIP LINE; 
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CURSOR. INHIBIT; 
exit; 
exception 

when others => 

TTY. PUT (23, 24 , " Improper input, please reenter , 

BLUE, CYAN) ; 
end; 

end loop; 

TTY. PUT (23, 24, ** 

BLACK, BLACK) ; 

TTY. PUT (ROW_START+2, 1, ” 

BLACK, BLACK) ; 
end if; 

TTY . PUT ( ROW_START+l , 1 , 

ft 

It 

/ 

BLACK, BLACK) ; 

TTY. PUT (ROW_START, 1+SIZE_INPUT_MSG, " 

II 

/ 

YELLOW, BLACK) ; 

TTY. PUT (ROW_START, 46, " ", BLACK, BLACK); 

TTY. PUT (ROW_START, 45, " = YELLOW, BLACK); 

PUT (NUMBER_OUT, INPUT_VALUE, 4, 3); 

TTY. PUT (ROW_START, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (ROW_START, 58, " ", YELLOW, BLACK); 

TTY. PUT (ROW_START, 59, 

INPUT_VALUE_UNITS (1 . . SIZE_INPUT_VALUE_UNITS) , 

YELLOW, BLACK) ; 

TTY. PUT (ROW_START, 59+SIZE_INPUT_VALUE_UNITS, 

" ", YELLOW, BLACK) ; 



end GET_INPUT; 
end FINOPT COMMON; 
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Title 



EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS 
A COMPUTER OPTIMIZATION 
-- Author : John Reynold Censure 

— Date : June 1992 

package FINOPT_DRAWINGS is 



procedure 


CYLINDRICAL DRAWING ( DIAMETER MSG 


: 


in 


STRING; 




HEIGHT_MSG 


t 


in 


STRING) ; 


procedure 


RECTANGULAR DRAWING (WIDTH MSG 


: 


in 


STRING; 




LENGTH MSG 


; 


in 


STRING; 




HEIGHT_MSG 


: 


in 


STRING) ; 


procedure 


MULTI FIN DRAWING (WIDTH MSG 


: 


in 


STRING; 




LENGTH MSG 


: 


in 


STRING; 




HEIGHT MSG 


: 


in 


STRING; 




SPACING MSG 


; 


in 


STRING; 




WALL LENGTH MSG 


: 


in 


STRING; 




WALL WIDTH MSG 


; 


in 


STRING) ; 



end FINOPT DRAWINGS; 
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— Title 

— Author 
-- Date 



EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS 
A COMPUTER OPTIMIZATION 
John Reynold Censure 
June 1992 



with COMMON_DISPLAY_TYPES, TTY; 

use COMMON_DISPLAY_TYPES; 

package body FINOPT_DRAWINGS is 

procedure CYLINDRICAL_DRAWING (DIAMETER_MSG 

HEIGHT_MSG 

PAUSE 



: in STRING; 

: in STRING) is 

: INTEGER; 



CHAR 



: CHARACTER; 



begin 



I", 



I ", 



TTY . CLEAR_SCREEN ; 
TTY. PUT ( 0, 20, 



( 2 , 



", YELLOW, BLACK); 



18, 

19, 

16, 



TTY. PUT ( 1, 

TTY. PUT { 1, 

TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT 
TTY. PUT ( 5, 

TTY. PUT ( 5, 

TTY. PUT ( 6, 

TTY. PUT { 6, 

TTY. PUT ( 7, 

TTY. PUT ( 7, 

TTY. PUT ( 8, 

TTY. PUT 
YELLOW, BLACK) ; 
TTY. PUT ( 9, 5, 
YELLOW, RED) ; 
TTY. PUT ( 9, 50, 
TTY. PUT (10, 5, 



{ 2, 17, 
( 3, 14, 
( 3, 15, 
( 4, 12, 
( 4, 13, 
10 , 
11 , 
8 , 
9, 
6 , 
7, 
5 , 

( 8, 25, 



"/", YELLOW, BLACK); 

" /I", YELLOW, RED); 

YELLOW, BLACK); 

" / I", YELLOW, RED) ; 

"/", YELLOW, BLACK) ; 

" / I", YELLOW, RED) ; 

"/", YELLOW, BLACK); 

" / I", YELLOW, RED); 

"/", YELLOW, BLACK); 

" / I", YELLOW, RED) ; 

"/", YELLOW, BLACK) ; 

" / I", YELLOW, RED) ; 

YELLOW, BLACK); 

" / I ", YELLOW, RED) ; 

"I I ", YELLOW, RED); 



"I 

"\ 

"I 



/ 



\ 



I", YELLOW, BLACK); 

/ \ 



YELLOW, RED) ; 

TTY. PUT (10, 52, "\ 
TTY. PUT (11, 5, "I 

YELLOW, RED) ; 

TTY. PUT (11, 54, " 



I", YELLOW, BLACK); 

I I 



FIN 



I 



YELLOW, BLACK) ; 

TTY. PUT (11, 61, DIAMETER MSG, YELLOW, BLACK); 



TTY. PUT (12, 5, "I 

YELLOW, RED) ; 

TTY. PUT (12, 54, " 



I I I 



YELLOW, BLACK) ; 
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TTY. PUT 

II 


(13, 


5, 


" 1 w 


1 \ / 


\ 


/ 

YELLOW, 


RED) 


} 








TTY. PUT 


(13, 


52, 


"/ 


1", YELLOW, BLACK); 




TTY. PUT 


(14, 


5, 


•*| A 


1 \ / 


\ 


YELLOW, 


RED) 


r 








TTY. PUT 


(14, 


50, 


"/ 


1 ", YELLOW, BLACK); 




TTY. PUT 


(15, 


5, 


"1 L 


1 ", YELLOW, RED); 


TTY. PUT 


(15, 


22, 




YELLOW, BLACK) ; 




TTY. PUT 


(16, 


5, 


"1 L 


1 1", YELLOW, RED) 


/ 


TTY. PUT 


(16, 


20, 


"/ 


1 " 


, YELLOW, BLACK) 


TTY. PUT 


(17, 


5, 


"1 


1 ", YELLOW, RED); 




TTY. PUT 


(17, 


18, 


"/I 




1", YELLOW, 


BLACK) ; 












TTY. PUT 


00 
1 — 1 


5, 


"1 


1 ", YELLOW, RED); 




TTY. PUT 


(18, 


16, 


’’/ 1 




— 1", YELLOW, 


BLACK) ; 












TTY. PUT 


(19, 


5, 


"1 


1 ", YELLOW, RED) ; 




TTY. PUT 


(19, 


14, 




1 


1", YELLOW, 


BLACK) ; 












TTY. PUT 


(19, 


28, 


HEIGHT MSG, YELLOW, BLACK) ; 




TTY. PUT 


(20, 


5, 


"1 


1 ", YELLOW, RED); 




TTY. PUT 


(20, 


12, 


"/ 


1 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(21, 


5, 


"1 


1", YELLOW, RED) ; 




TTY. PUT 


(21, 


10, 




YELLOW, BLACK) ; 




TTY. PUT 


(23, 


27, 


" Press any key to continue 


BLUE, CYAN) ; 


TTY. GET 


(PAUSE, 


CHAR) ; 







end CYLINDRICAL DRAWING; 



procedure RE CTANGULAR__D RAWING (WIDTH__MSG 

LENGTH_MSG 
HEIGHT MSG 



in STRING; 

: in STRING; 

: in STRING) is 



PAUSE 



INTEGER; 



CHAR 



CHARACTER; 



begin 



RED) ; 



TTY. CLEAR SCREEN; 



TTY. PUT 


( 


0, 


25, 


II 


", YELLOW, BLACK); 


TTY. PUT 


( 


1, 


23, 




YELLOW, BLACK) ; 


TTY. PUT 


( 


1, 


24, 


II 


/ 1", YELLOW, RED) ; 


TTY. PUT 


( 


2, 


21, 




YELLOW, BLACK) ; 


TTY. PUT 


( 


2, 


22, 


It 


/ 1", YELLOW, RED); 


TTY. PUT 


( 


3, 


19, 




YELLOW, BLACK) ; 


TTY. PUT 


( 


3, 


20, 


tl 


/ 1", YELLOW, RED) ; 


TTY. PUT 


( 


4, 


17, 




YELLOW, BLACK) ; 


TTY. PUT 


( 


4, 


18, 


It 


/ 1", YELLOW, RED) ; 


TTY. PUT 


( 


4, 


32, 


II 


" , YELLOW 


TTY. PUT 


( 


5, 


15, 




YELLOW, BLACK) ; 


TTY. PUT 


( 


5, 


16, 


It 


/ / /I 


TTY. PUT 


( 


5, 


53, 


"1 ", 


YELLOW, BLACK) ; 



BLACK) ; 
YELLOW, 
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RED) ; 



RED) ; 



TTY. PUT 


( 6, 


14 


TTY. PUT 


( 6, 


53 


TTY. PUT 


( 6, 


56 


TTY. PUT 


( 7, 


14 


TTY. PUT 


( 7, 


51 


TTY. PUT 


( 8, 


14 


TTY. PUT 


( 8, 


46 


TTY. PUT 


( 9, 


14 


TTY. PUT 


( 9, 


44 


TTY. PUT 


(10, 


14 


TTY . PUT 


(10, 


42 


TTY. PUT 


(11, 


14 


TTY . PUT 


(11, 


40 


TTY. PUT 


(12, 


14 


TTY. PUT 


(12, 


38 


TTY. PUT 


(13, 


14 


TTY. PUT 


(13, 


36 


TTY. PUT 


(14, 


14 


TTY. PUT 


(14, 


27 


TTY. PUT 


(15, 


14 


TTY. PUT 


(15, 


25, 


TTY . PUT 


(16, 


14, 


TTY. PUT- 


(16, 


23 


TTY. PUT 


(17, 


14, 


TTY. PUT 


(17, 


21. 


TTY. PUT 


(17, 


41. 


TTY. PUT 


(18, 


35. 


TTY. PUT 


(19, 


20. 


TTY. PUT 


(20, 


20. 


TTY. PUT 


(21, 


20. 


TTY. PUT 


(21, 


22. 


TTY. PUT 


(21, 


35. 


TTY. PUT 


(23, 


27. 


TTY. GET 


(PAUSE, 



I 



I / 

YELLOW, BLACK) ; 
i_MSG, YELLOW, B! 
I / 



/ 



I 



YELLOW, 



YELLOW, 



** I YELLOW, BLACK); 

"I I / 

”/"/ YELLOW, BLACK); 
” 11 / / 
*V r*, YELLOW, BLACK); 

”1 W 1/ / 



”, YELLOW, RED); 
”, YELLOW, RED) ; 

”, YELLOW, RED) ; 



”/ I”, YELLOW, BLACK); 

”1 A I "/ YELLOW, RED) ; 

”/ I”, YELLOW, BLACK); 

"I L FIN I ”, YELLOW, RED) ; 

”/ /I ”, YELLOW, BLACK) ; 

”1 L I”, YELLOW, RED) ; 

”/ / I”, YELLOW, BLACK); 

”1 I ”, YELLOW, RED) ; 

”/ / I”, YELLOW, BLACK); 

”1 I ”, YELLOW, RED) ; 

”/ I / I”, YELLOW, BLACK); 

”1 I ”, YELLOW, RED) ; 

”/ I /”, YELLOW, BLACK); 

”1 I”, YELLOW, RED) ; 

”/ I /”, YELLOW, BLACK); 

LENGTH_MSG, YELLOW, BLACK) ; 

”1”, YELLOW, BLACK); 

”1 I”, YELLOW, BLACK); 

».| YELLOW, BLACK) ; 

”1”, YELLOW, BLACK); 

HEIGHT_MSG, YELLOW, BLACK) ; 

”1”, YELLOW, BLACK); 

” Press any key to continue ”, BLUE, CYAN) ; 



end RECTAN GULAR_D RAWING; 

procedure MULTI_FIN_DRAWING (WIDTH_MSG 

LENGTH_MSG 
HEIGHT_MSG 
SPACING_MSG 
WALL_LENGTH_MSG 
WALL WIDTH MSG 



PAUSE 

CHAR 



in STRING; 

: in STRING; 

: in STRING; 

: in STRING; 

: in STRING; 

: in STRING) is 

: INTEGER; 

: CHARACTER; 



begin 

TTY. CLEAR_SCREEN; 

TTY. PUT ( 0, 27, WALL_WIDTH_MSG, YELLOW, BLACK); 
TTY. PUT ( 1, 10, 
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I *' , YELLOW 



BLACK) ; 



TTY. PUT 

II 


( 2, 


6, 












II 

r 




YELLOW, 


BLACK) ; 
















TTY. PUT 


( 3, 


7, 


II 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


( 3, 


10, 
















"1 














1 ", 


YELLOW, 


RED) 


TTY. PUT 


( 4, 


7, 


II 


I", 


YELLOW, 


BLACK) ; 








TTY. PUT 


( 4, 


o 
1 — 1 
















"1 i\ 


\ 




l\ 


\ 


l\ \ 


1 ", 


YELLOW, 


RED) 


TTY. PUT 


( 5, 


7, 


II 


1”, 


YELLOW, 


BLACK) ; 








TTY. PUT 


( 5, 


o 
1 — 1 
















"1 1 


\ \ 




1 


\ 


\ 


1 \ \ WALL 


1", 


YELLOW, 


RED) 


TTY. PUT 


( 6, 


7, 




1", 


YELLOW, 


BLACK) ; 








TTY . PUT 


( 6, 


10, 
















"1 1 


\ 


\ 


1 




\ \ 


1 \ \ 


1", 


YELLOW, 


RED) 


TTY. PUT 


( 7, 


7, 


II 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


( 7, 


10, 
















"I 1 


\ \ 


1 




\ \ 


1 \ \ 


1", 


YELLOW, 


RED) 


TTY. PUT 


( 8, 


7, 


*' 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


( 8, 


10, 
















”1 1 




\ 


\ 




\ 


\ \ \ 


1", 


YELLOW, 


RED) 


TTY. PUT 


( 9, 


7, 


II 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


( 9, 


10, 
















"1 1 






\ 


\ 


\ 


\ \ \ 


_i"/ 


YELLOW, 


RED) 


TTY. PUT 


( 9, 


59, 


II 




", YELLOW, BLACK) ; 








TTY. PUT 


(10, 


7, 


II 


1 ", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(10, 


10, 
















"I 1 


F 




1 


1 




II II 


1", 


YELLOW, 


RED) 


TTY. PUT 


(10, 


62, 


II 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(11, 


7, 


II 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(11, 


10, 
















*’l 1 


I 




1 


1 




II II 


1 ", 


YELLOW, 


RED) 


TTY. PUT 


(11, 


62, 


II 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(12, 


7, 


II 


1 ", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(12, 


10, 
















"1 \ 


N 




1 


1 




II II 


1 ", 


YELLOW, 


RED) 


TTY. PUT 


(12, 


62, 


II 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(13, 


7, 


II 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(13, 


10, 
















"1 


\ 




1 


1 




II II 


1", 


YELLOW, 


RED) 


TTY. PUT 


(13, 


62, 


II 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(13, 


64, 


LENGTH MSG, 


YELLOW, BLACK) ; 








TTY. PUT 


(14, 


7, 


II 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(14, 


o 
1 — 1 
















”1 1 


\ 




1 


1 


\ 


1 1 \ II 


1 ", 


YELLOW, 


RED) 


TTY. PUT 


(14, 


62, 


II 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(15, 


6, 


II 


_i_ 


", YELLOW, BLACK); 








TTY. PUT 


(15, 


10, 
















"I 1 \ 


\ 


1 


1 


\ 


1 1 \ II 


1", 


YELLOW, 


RED) 


TTY. PUT 


(15, 


62, 


” 


1", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(16, 


14, 


II 


1 


\ \" 


, YELLOW, BLACK) ; 








TTY. PUT 


(16, 


24, 


II 


1 


1", YELLOW, RED); 








TTY. PUT 


(16, 


35, 


II 


\", 


YELLOW, 


BLACK) ; 








TTY. PUT 


(16, 


36, 


II 


1 


1", YELLOW, RED); 
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TTY. PUT 


(16, 


47, 




YELLOW, BLACK) ; 




TTY. PUT 


(16, 


48, 


" 1 


1”, YELLOW, RED); 




TTY. PUT 


(16, 


62, 


"I", 


YELLOW, BLACK) ; 




TTY. PUT 


(17, 


20 , 


"\ 


\", YELLOW, BLACK); 




TTY. PUT 


(17, 


26, 


"1 1 


", YELLOW, RED) ; 




TTY. PUT 


(17, 


37, 




YELLOW, BLACK) ; 




TTY. PUT 


(17, 


38, 


"1 1 


", YELLOW, RED); 




TTY. PUT 


(17, 


49, 




YELLOW, BLACK) ; 




TTY. PUT 


(17, 


50, 


"1 1 


", YELLOW, RED); 




TTY. PUT 


(17, 


56, 


tl 


1 ", YELLOW, BLACK); 




TTY. PUT 


(18, 


7, 


HEIGHT MSG, YELLOW, BLACK) ; 




TTY. PUT 


(18, 


22, 




YELLOW, BLACK) ; 




TTY. PUT 


(19, 


24, 


"\ 1 


1 1 1 


— 1", YELLOW, BLACK) 


TTY. PUT 


(20, 


26, 


"1 ", 


YELLOW, BLACK) ; 




TTY. PUT 


(20, 


28, 


SPACING MSG, YELLOW, BLACK) ; 




TTY. PUT 


(20, 


45, 


WIDTH MSG, YELLOW, BLACK) ; 




TTY. PUT 


(21, 


26, 


"1", 


YELLOW, BLACK) ; 




TTY. PUT 


( 3, 


4, 


WALL 


LENGTH MSG (1) , YELLOW, 


BLACK) ; 


TTY. PUT 


( 4, 


4, 


WALL 


LENGTH MSG (2) , YELLOW, 


BLACK) ; 


TTY. PUT 


( 5, 


4, 


WALL 


LENGTH MSG (3) , YELLOW, 


BLACK) / 


TTY. PUT 


( 6, 


4, 


WALL__ 


LENGTH MSG ( 4 ) , YELLOW, 


BLACK) ; 


TTY. PUT 


( 7, 


4, 


WALL 


LENGTH MSG (5) , YELLOW, 


BLACK) ; 


TTY. PUT 


( 8, 


4, 


WALL 


LENGTH MSG (6) , YELLOW, 


BLACK) ; 


TTY. PUT 


( 9, 


4, 


WALL 


LENGTH MSG ( 7 ) , YELLOW, 


BLACK) ; 


TTY. PUT 


(10, 


4, 


WALL 


LENGTH MSG (8) , YELLOW, 


BLACK) ; 


TTY. PUT 


(11, 


4, 


WALL 


LENGTH MSG ( 9 ) , YELLOW, 


BLACK) ; 


TTY. PUT 


(12, 


4, 


WALL 


LENGTH MSG (10) , YELLOW, 


BLACK) ; 


TTY. PUT 


(13, 


4, 


WALL 


LENGTH MSG(ll), YELLOW, 


BLACK) ; 


TTY. PUT 


(14, 


4, 


WALL 


LENGTH MSG (12) , YELLOW, 


BLACK) ; 


TTY. PUT 


(15, 


4, 


WALL 


LENGTH MSG (13) , YELLOW, 


BLACK) ; 


TTY. PUT 


(23, 


27, 


** Press any key to continue 


1 ", BLUE, CYAN); 


TTY. GET 


(PAUSE, 


CHAR) ; 







end MULTI FIN DRAWING; 



end FINOPT DRAWINGS; 
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— Title 

— Author 

— Date 



EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS 
A COMPUTER OPTIMIZATION 
John Reynold Censure 
June 1992 



package FINOPT MULTIPLE is 



(UNITS 


: in 


INTEGER; 


CONVERT DIST 


: in 


FLOAT ; 


CONVERT TEMP 


: in 


FLOATY- 


G C 


: in 


FLOAT ; 


GRAVITY 


: in 


FLOAT ; 


WALL LENGTH 


: in 


out FLOAT; 


WALL LENGTH UNITS 


: in 


STRING; 


WALL WIDTH 


: in 


out FLOAT; 


WALL WIDTH UNITS 


: in 


STRING; 


LENGTH 


: in 


out FLOAT; 


LENGTH UNITS 


: in 


STRING; 


HEIGHT 


: in 


out FLOAT; 


HEIGHT UNITS 


: in 


STRING; 


WIDTH 


: in 


out FLOAT; 


WIDTH UNITS 


: in 


STRING; 


SPACING 


: in 


out FLOAT; 


SPACING UNITS 


: in 


STRING; 


NUM FINS 


: in 


out FLOAT; 


NUM FINS UNITS 


: in 


STRING; 


DENSITY 


: in 


out FLOAT; 


DENSITY UNITS 


: in 


STRING; 


SPECIFIC HEAT 


: in 


out FLOAT; 


SPECIFIC HEAT UNITS 


: in 


STRING; 


K 


: in 


out FLOAT; 


K FLUID 


: in 


out FLOAT; 


K UNITS 


: in 


STRING; 


NU 


: in 


out FLOAT; 


NU UNITS 


: in 


STRING; 


T AMBIENT 


: in 


out FLOAT; 


T WALL 


: in 


out FLOAT ; 


T UNITS 


: in 


STRING; 


Q 


: in 


out FLOAT ; 


Q UNITS 


: in 


STRING) ; 



(UNITS 


: in 


INTEGER; 


CONVERT DIST 


: in 


FLOAT; 


CONVERT TEMP 


: in 


FLOAT; 


G C 


: in 


FLOAT ; 


GRAVITY 


: in 


FLOAT; 


WALL LENGTH 


: in 


out FLOAT; 


WALL LENGTH UNITS 


: in 


STRING; 


WALL WIDTH 


: in 


out FLOAT; 


WALL WIDTH UNITS 


: in 


STRING; 


LENGTH 


: in 


out FLOAT ; 


LENGTH UNITS 


: in 


STRING; 


HEIGHT 


: in 


out FLOAT; 


HEIGHT UNITS 


: in 


STRING; 


WIDTH 


: in 


out FLOAT; 


WIDTH UNITS 


: in 


STRING; 
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SPACING 


: in 


out FLOATY- 


SPACING UNITS 


: in 


STRING; 


NUM FINS 


: in 


out FLOAT; 


NUM FINS UNITS 


: in 


STRING; 


DENSITY 


: in 


out FLOAT; 


DENSITY UNITS 


: in 


STRING; 


SPECIFIC HEAT 


: in 


out FLOAT; 


SPECIFIC HEAT UNITS 


: in 


STRING; 


K 


: in 


out FLOAT; 


K FLUID 


: in 


out FLOAT; 


K UNITS 


: in 


STRING; 


NU 


: in 


out FLOAT; 


NU UNITS 


: in 


STRING; 


T AMBIENT 


: in 


out FLOAT; 


T WALL 


: in 


out FLOAT; 


T UNITS 


: in 


STRING; 


Q 


: in 


out FLOAT; 


Q UNITS 


: in 


STRING) ; 



procedure 



MULTIPLE MAX Q (UNITS 


: 


in 


INTEGER; 


CONVERT DIST 


: 


in 


FLOAT; 


CONVERT TEMP 


: 


in 


FLOAT; 


G C 


; 


in 


FLOAT; 


GRAVITY 


: 


in 


FLOAT; 


WALL LENGTH 


: 


in 


out FLOAT; 


WALL LENGTH UNITS 


: 


in 


STRING; 


WALL WIDTH 


: 


in 


out FLOAT; 


WALL WIDTH UNITS 


: 


in 


STRING; 


LENGTH 


: 


in 


out FLOAT; 


LENGTH UNITS 


; 


in 


STRING; 


HEIGHT 


: 


in 


out FLOAT; 


HEIGHT UNITS 


: 


in 


STRING; 


WIDTH 


; 


in 


out FLOAT; 


WIDTH UNITS 


: 


in 


STRING; 


SPACING 


: 


in 


out FLOAT; 


SPACING_UNITS 


: 


in 


STRING; 


NUM FINS 


: 


in 


out FLOAT; 


NUM FINS UNITS 


: 


in 


STRING; 


DENSITY 


: 


in 


out FLOAT; 


DENSITY UNITS 


: 


in 


STRING; 


SPECIFIC HEAT 


: 


in 


out FLOAT; 


SPECIFIC HEAT UNITS 


: 


in 


STRING; 


K 


: 


in 


out FLOAT; 


K FLUID 


: 


in 


out FLOAT; 


K UNITS 


: 


in 


STRING; 


NU 


: 


in 


out FLOAT; 


NU UNITS 


: 


in 


STRING; 


T AMBIENT 


; 


in 


out FLOAT; 


T WALL 


; 


in 


out FLOAT; 


T UNITS 


: 


in 


STRING; 


Q 


: 


in 


out FLOAT; 


Q UNITS 


: 


in 


STRING) ; 



end FINOPT MULTIPLE; 
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-- Title 

— Author 

— Date 



EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS 
A COMPUTER OPTIMIZATION 
John Reynold Censure 
June 1992 



with 



use 



TEXT_IO, COMMON_DISPLAY_TYPES, TTY, CURSOR, FINOPT_COMMON, 
GENERIC ELEMENTARY FUNCTIONS, FINOPT PICTURES; 



T EX T_I O , COMMON_D ISP LAY_T YPES, FINO PT_COMMON ; 

package body FINOPT_MULTI PLE is 

package FLOAT_INOUT is new FLOAT_IO ( FLOAT) ; 
package MY_ELEMENTARY_FUNCTlONS is 

new GENERIC_ELEMENTARY_FUNCTIONS (FLOAT) ; 
use FLOAT INOUT, MY ELEMENTARY FUNCTIONS; 



(UNITS 


: 


in 


INTEGER; 


CONVERT DIST 


: 


in 


FLOAT ; 


CONVERT TEMP 


: 


in 


FLOAT; 


G C 


: 


in 


FLOAT; 


GRAVITY 


: 


in 


FLOAT; 


WALL LENGTH 


: 


in 


out FLOAT; 


WALL LENGTH UNITS 


; 


in 


STRING; 


WALL WIDTH 


: 


in 


out FLOAT; 


WALL WIDTH UNITS 


: 


in 


STRING; 


LENGTH 


: 


in 


out FLOAT; 


LENGTH UNITS 


; 


in 


STRING; 


HEIGHT 


: 


in 


out FLOAT; 


HEIGHT UNITS 


: 


in 


STRING; 


WIDTH 


: 


in 


out FLOAT; 


WIDTH UNITS 


: 


in 


STRING; 


SPACING 


: 


in 


out FLOAT; 


SPACING UNITS 


: 


in 


STRING; 


NUM FINS 


: 


in 


out FLOAT; 


NUM FINS UNITS 


: 


in 


STRING; 


DENSITY 


: 


in 


out FLOAT; 


DENSITY UNITS 


: 


in 


STRING; 


SPECIFIC HEAT 


: 


in 


out FLOAT; 


SPECIFIC HEAT UNITS 


: 


in 


STRING; 


K 


; 


in 


out FLOAT; 


K FLUID 


: 


in 


out FLOAT; 


K UNITS 


: 


in 


STRING; 


NU 


: 


in 


out FLOAT; 


NU UNITS 


: 


in 


STRING; 


T AMBIENT 


: 


in 


out FLOAT; 


T WALL 


: 


in 


out FLOAT; 


T UNITS 


: 


in 


STRING; 


Q 


: 


in 


out FLOAT; 


Q UNITS 


: 


in 


STRING) is 



NUMBER_OUT 

CHAR 

PAUSE, NUM FINS INT 



: STRINGd. .10) ; 
: CHARACTER; 

: INTEGER; 
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PERIMETER, AREA, M, EFFICIENCY, 

DELTA_T, T_TIP, T_AVG, BETA, MU, 

RAYLEIGH_CHANNEL, NUSSELT_CHANNEL, H, 

AREA_BASE, AREA_FIN, AREA_TOTAL : FLOAT; 

begin 



Inputs 



FINOPT_PICTURES . INPUT_MSG; 

GET_INPUT (WALL_LENGTH, "Length of the fin placement area", 32, 
WALL_LENGTH_UNITS, 2, 13); 

GET_INPUT (WALL_WIDTH, "Width of the fin placement area", 31, 
WALL_WIDTH_UNITS, 2, 14); 

GET_INPUT (LENGTH, "Length of each fin", 18, LENGTH_UNITS , 2, 15); 
GET_INPUT (HEIGHT, "Height of each fin", 18, HEIGHT_UNITS , 2, 16); 
GET_IN PUT (WIDTH, "Width of each fin", 17, WIDTH_UNITS, 2, 17); 
GET_INPUT (SPACING, "Spacing between fins", 20, SPACING_UNITS , 2, 

18) ; 

NUM_FINS := (WALL_WIDTH-WIDTH) / (SPACING+WIDTH) ; 

NUM_FINS := NUM_FINS-0. 4 9999999999; 

NUM_FINS_INT := INTEGER (NUM_FI NS ) ; 

NUM_FINS_INT := NUM_FINS_INT+1 ; 

NUM_FINS := FLOAT (NUM_FINS_INT) ; 

GET_INPUT (NUM_FINS, "Number of fins, default is maximum nun\ber", 
41, NUM_FINS_UNITS, 4, 19); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN) ; 

TTY. GET (PAUSE, CHAR) ; 

FINOPT_PICTURES . INPUT_CONT_MSG; 
if (UNITS = 2) then 

GET_INPUT (DENSITY, "Density of surrounding fluid", 

28, DENSITY_UNITS, 8, 13); 
else 

GET_INPUT( DENSITY, "Density of surrounding fluid", 

28, DENSITY_UNITS, 6, 13); 
end if; 

if (UNITS = 2) then 

GET_INPUT (SPECIFIC_HEAT, "Specific heat of surrounding fluid", 
34, SPECIFIC_HEAT_UNITS, 15, 14); 

GET_INPUT(K, "Thermal conductivity of material, k", 35, 
K_UNITS, 17, 15) ; 

GET_INPUT (K_FLUID, 

"Thermal conductivity of surrounding fluid, k", 44, 

K_UNITS, 17, 16) ; 

GET_INPUT (NU, "Kinematic viscosity of surrounding fluid", 

40, NU_UNITS, 6, 17); 
else 

GET_INPUT (SPECIFIC_HEAT, "Specific heat of surrounding fluid", 
34, SPECIFIC_HEAT_UNITS, 12, 14); 

GET_INPUT(K, "Thermal conductivity of material, k", 35, 
K_UNITS, 11, 15); 

GET_INPUT (K_FLUID, 

"Thermal conductivity of surrounding fluid, k", 44, 

K UNITS, 11, 16) ; 
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GET_INPUT (NU, "Kinematic viscosity of surrounding fluid", 

40, NU_UNITS, 5, 17); 
end if; 

GET_INPUT (T_AMBIENT, "Ambient Temperature", 19, T_UNITS, 5, 18); 
GET_INPUT (T_WALL, "Wall Temperature", 16, T_UNITS, 5, 19); 

TTY. PUT (23, 27, " Press any )cey to continue ", BLUE, CYAN); 

TTY. GET (PAUSE, CHAR) ; 



Calculations (Assume Tip is Insulated) and Length » Width 



T_AVG : = ( T_WALL+T_AMBI ENT ) / 2 . 0 ; 

BETA : = 1 . 0/ ( T_AVG+CONVERT_TEMP ) ; 

DELTA_T := T_WALL-T_AMBIENT; 

MU := (NU*DENSITY) /G_C; 

RAYLEIGH_CHANNEL := ( (DENSITY**2) *GRAVITY*BETA*SPECIFIC_HEAT 
* ( (SPACING/CONVERT_DIST) * * 4 ) *DELTA_T ) / (MU* ( LENGTH/ CONVERT_DI ST ) 
*K_FLUID) / 

NUSSELT_CHANNEL := ( ( 57 6 . 0/ ( RAYLEIGH_CHANNEL* *2 ) ) 
+(2.873/SQRT(RAYLEIGH_CHANNEL) ) )** (-0.5) ; 

H := (NUSSELT_CHANNEL*K_FLUID) / (SPACING/CONVERT_DIST) ; 
PERIMETER := 2 . 0*LENGTH/CONVERT_DIST; 

AREA := (WIDTH/CONVERT_DIST) * (LENGTH/CONVERT_DIST) ; 

M := SQRT( (H* PERIMETER) / (K*AREA) ) ; 

EFFICIENCY := (TANH (M*HEIGHT/CONVERT_DIST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

AREA_BASE : = 

( (WALL_WIDTH/CONVERT_DIST) * (WALL_LENGTH/CONVERT_DIST) ) 

- (NUM_FINS* ( LENGTH/ CONVERT_DI ST) * (WIDTH/CONVERT_DIST) ) ; 
AREA_FIN := NUM_FINS* (2 . 0* (HEIGHT/CONVERT_DIST) 

* ( LENGTH/ CONVERT_DI ST) ) ; 

AREA_TOTAL := AREA_BASE+ ( EFFICIENCY*AREA_FIN ) ; 

Q := H*AREA_TOTAL*DELTA_T; 

T TIP := T AMBIENT+ (DELTA T/COSH (M*HEIGHT/CONVERT DIST) ) ; 



Outputs 



FINOPT_PICTURES . OUTPUT_MSG; 

TTY. PUT ( 5, 36, " Inputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT ( 7, 1, "Length of the fin placement area 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WALL_LENGTH, 4, 3) ; 

TTY. PUT ( 7, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 7, 59, WALL_LENGTH_UNITS, YELLOW, BLACK); 
TTY. PUT ( 8, 1, "Width of the fin placement area 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WALL_WIDTH, 4, 3) ; 

TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, WALL_WIDTH_UNITS, YELLOW, BLACK); 
TTY. PUT ( 9, 1, "Length of each fin 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, LENGTH, 4, 3) ; 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 9, 59, LENGTH_UNITS, YELLOW, BLACK); 

TTY. PUT (10, 1, "Height of each fin 
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YELLOW, BLACK) ; 

PUT (NUMBER_OUT, HEIGHT, 4, 3); 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, HEIGHT_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "Width of each fin = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WIDTH, 4, 3) ; 

TTY. PUT (11, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (11, 59, WIDTH_UNITS, YELLOW, BLACK); 

TTY. PUT (12, 1, "Spacing between fins = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, SPACING, 4, 3) ; 

TTY. PUT (12, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (12, 59, SPACING_UNITS, YELLOW, BLACK); 

TTY. PUT (13, 1, "Number of fins = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, NUM_FINS, 4, 3); 

TTY. PUT (13, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (13, 59, NUM_FINS_UNITS, YELLOW, BLACK); 

TTY. PUT (14, 1, "Density of surrounding fluid = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, DENSITY, 4, 3) ; 

TTY. PUT (14, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (14, 59, DENSITY_UNITS , YELLOW, BLACK); 

TTY. PUT (15, 1, "Specific heat of surrounding fluid = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, SPECIFIC_HEAT, 4, 3); 

TTY. PUT (15, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (15, 59, SPECIFIC_HEAT_UNITS, YELLOW, BLACK); 

TTY. PUT (16, 1, "Thermal conductivity of material, k = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K, 4, 3); 

TTY. PUT (16, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (16, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (17, 1, "Thermal conductivity of surrounding fluid, k = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K_FLUID, 4, 3) ; 

TTY. PUT (17, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (17, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (18, 1, "Kinematic viscosity of surrounding fluid = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, NU, 4, 3) ; 

TTY. PUT (18, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (18, 59, NU_UNITS, YELLOW, BLACK); 

TTY. PUT (19, 1, "Ambient Temperature ' = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_AMBIENT, 4, 3) ; 

TTY. PUT (19, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (19, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (20, 1, "Wall Temperature = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_WALL, 4, 3) ; 

TTY. PUT (20, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (20, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN); 

TTY. GET (PAUSE, CHAR); 
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FINOPT_PICTURES . OUTPUT_CONT_MSG; 

TTY. PUT ( 6, 35, " Outputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT ( 8, 1, "Heat transferred away by the fins, q 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, Q, 4, 3); 

TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, Q_UNITS, YELLOW, BLACK); 

TTY. PUT ( 9, 1, "The fin efficiency 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, EFFICIENCY, 4, 3); 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 1, "The temperature at the tip of the fins 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_TIP, 4, 3) ; 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "Channel Rayleigh number 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, RAYLEIGH_CHANNEL, 4, 3); 



TTY. PUT (11, 48, NUMBER OUT, YELLOW, BLACK); 


TTY. PUT ( 12 , 1 , "Channel Nusselt number 






= 


YELLOW, BLACK) ; 

PUT (NUMBER OUT, NUSSELT CHANNEL, 4, 3) ; 

TTY. PUT (12, 48, NUMBER OUT, YELLOW, BLACK); 


TTY. PUT (23, 21 , " Press any key to continue ", 


BLUE, 


CYAN) ; 


TTY. GET (PAUSE, CHAR) ; 
end MULTI PLE_NO_OPT; 


procedure MULTIPLE MAX FIN (UNITS 


; 


in 


INTEGER; 


CONVERT DIST 


: 


in 


FLOAT ; 


CONVERT TEMP 


; 


in 


FLOAT; 


G C 


: 


in 


FLOAT ; 


GRAVITY 


: 


in 


FLOAT; 


WALL LENGTH 


; 


in 


out FLOAT; 


WALL LENGTH UNITS 


: 


in 


STRING; 


WALL WIDTH 


: 


in 


out FLOAT; 


WALL WIDTH UNITS 


: 


in 


STRING; 


LENGTH 


: 


in 


out FLOAT; 


LENGTH UNITS 


: 


in 


STRING; 


HEIGHT 


: 


in 


out FLOAT; 


HEIGHT UNITS 


: 


in 


STRING; 


WIDTH 


; 


in 


out FLOAT; 


WIDTH UNITS 


: 


in 


STRING; 


SPACING 


: 


in 


out FLOAT; 


SPACING UNITS 


: 


in 


STRING; 


NUM FINS 


: 


in 


out FLOAT; 


NUM FINS_UNITS 


: 


in 


STRING; 


DENSITY 


: 


in 


out FLOAT; 


DENSITY UNITS 


; 


in 


STRING; 


SPECIFIC HEAT 


: 


in 


out FLOAT; 


S P EC I FI C_HEAT_UN ITS 


: 


in 


STRING; 


K 


: 


in 


out FLOAT; 


K FLUID 


: 


in 


out FLOAT; 


K UNITS 


: 


in 


STRING; 


NU 


: 


in 


out FLOAT; 
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NU UNITS 



in STRING; 



T_WALL 

T_UNITS 

Q 



T AMBIENT 



in out FLOAT; 
in out FLOAT; 
in STRING; 



Q UNITS 



in out FLOAT; 
in STRING) is 



NUMBER OUT 



STRINGd. .10) ; 



CHAR 



CHARACTER 



PAUSE, NUM FINS INT 



INTEGER 



PERIMETER, i^REA, M, EFFICIENCY, 
DELTA_T, T_TIP, T_AVG, BETA, MU, 
RAYLEIGH_CHANNEL, NUSSELT_CHANNEL, H 
AREA BASE, AREA FIN, AREA TOTAL, P 



FLOAT 



begin 



Inputs 



FINOPT_PICTURES . INPUT__MSG; 

GET_INPUT (WALL_LENGTH, "Length of the fin placement area", 32, 
WALL_LENGTH_UNITS, 2, 14); 

GET_INPUT (WALL_WIDTH, "Width of the fin placement area", 31, 
WALL_WIDTH_UNITS, 2, 15); 

GET_INPUT (LENGTH, "Length of each fin", 18, LENGTH__UNITS, 2, 16); 
GET_INPUT (HEIGHT, "Height of each fin", 18, HEIGHT__UNITS, 2, 17); 
GET_INPUT (WIDTH, "Width of each fin", 17, WIDTH_UNITS, 2, 18); 

if (UNITS = 2) then 

GET_INPUT (DENSITY, "Density of surrounding fluid", 28, 
DENSITY_UNITS, 8, 19); 

else 

GET_INPUT (DENSITY, "Density of surrounding fluid", 28, 
DENSITY_UNITS, 6, 19); 
end if; 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN); 

TTY. GET (PAUSE, CHAR) ; 

FINOPT_PICTURES . INPUT_CONT_MSG; 
if (UNITS = 2) then 

GET_INPUT (SPECIFIC_HEAT, "Specific heat of surrounding fluid", 
34, SPECIFIC_HEAT__UNITS, 15, 14); 

GET_INPUT(K, "Thermal conductivity of material, k", 35, 
K_UNITS, 17, 15); 

GET_INPUT (K_FLUID, 

"Thermal conductivity of surrounding fluid, k", 44, 

K__UNITS, 17, 16); 

GET_INPUT (NU, "Kinematic viscosity of surrounding fluid", 

40, NU_UNITS, 6, 17); 
else 

GET_INPUT (SPECIFIC_HEAT, "Specific heat of surrounding fluid", 
34, SPECIFIC_HEAT_UNITS, 12, 14); 

GET_INPUT(K, "Thermal conductivity of material, k", 35, 

K UNITS, 11, 15) ; 
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GET_INPUT (K_FLUID, 

"Thermal conductivity of surrounding fluid, k", 44, 

K_UNITS, 11, 16) ; 

GET_INPUT (NU, "Kinematic viscosity of surrounding fluid", 

40, NU_UNITS, 5, 17); 
end i f ; 

GET_INPUT (T_AMBIENT, "Ambient Temperature", 19, T_UNITS, 5, 16); 
GET_INPUT (T_WALL, "Wall Temperature", 16, T_UNITS, 5, 19); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN); 

TTY. GET (PAUSE, CHAR); 



Calculations (Assume Tip is Insulated) and Length » Width 



T_AVG : = ( T_WALL+T_AMBI ENT ) / 2 . 0 ; 

BETA := 1. 0/ (T_AVG+CONVERT_TEMP) ; 

DELTA_T := T_WALL-T_AMBIENT; 

MU := (NU*DENSITY) /G_C; 

P := ( (DENSITY**2) *GRAVITY*BETA*SPECIFIC_HEAT*DELTA_T) 

/ (MU* ( LENGTH/ CONVERT_DI ST) *K_FLUID) ; 

SPACING := CONVERT_DIST* (4.64/ (P** (0.25) )) ; 

NUM_FINS ;= (WALL_WIDTH-WIDTH) / ( SPACING+WIDTH) ; 

NUM_FINS := NUM_FINS-0. 49999999999; 

NUM_FINS_INT := INTEGER (NUM_FINS) ; 

NUM_FINS_INT := NUM_FINS_INT+1 ; 

NUM_FINS := FLOAT (NUM_FINS_I NT) ; 

RAYLEIGH_CHANNEL := (( DENSITY* *2 ) ‘GRAVITY* BETA* SPECI FIC_HEAT 
* ( (SPACING/CONVERT_DIST) **4) *DELTA_T) / (MU* (LENGTH/CONVERT_DIST) 
*K_FLUID) ; 

NUSSELT_CHANNEL := ( (576. 0/ (RAYLEIGH_CHANNEL**2) ) 
+(2.873/SQRT(RAYLEIGH_CHANNEL) ) ) ** (-0.5) ; 

H := (NUSSELT_CHANNEL*K_FLUID) / (SPACING/CONVERT_DIST) ; 
PERIMETER : = 2 . 0*LENGTH/CONVERT_DIST; 

AREA := (WIDTH/CONVERT_DIST) * (LENGTH/CONVERT_DIST) ; 

M := SQRT( (H*PERIMETER) / (K*AREA) ) ; 

EFFICIENCY := (TANH (M*HEIGHT/CONVERT_DIST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

AREA_BASE := 

( (WALL_WIDTH/CONVERT_DIST) * (WALL_LENGTH/CONVERT_DIST) ) 

- (NUM_FINS* (LENGTH/CONVERT_DIST) * (WIDTH/CONVERT_DIST) ) ; 
AREA_FIN := NUM_FINS* (2 . 0* (HEIGHT/CONVERT_DIST) 

* (LENGTH/CONVERT_DIST) ) ; 

AREA_TOTAL := AREA_BASE+ (EFFICIENCY*AREA_FIN) ; 

Q := H*AREA_TOTAL*DELTA_T; 

T TIP := T AMBIENT+( DELTA T/COSH (M*HEIGHT/CONVERT DIST) ) ; 



Outputs 



FINOPT_PICTURES . OUTPUT_MSG; 

TTY. PUT ( 5, 36, " Inputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT ( 7, 1, "Length of the fin placement area 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WALL_LENGTH, 4, 3) ; 

TTY. PUT ( 7, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 7, 59, WALL LENGTH UNITS, YELLOW, BLACK); 
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TTY. PUT ( 8, 1, "Width of the fin placement area = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WALL_WIDTH, 4, 3) ; 

TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, WALL_WIDTH_UNITS, YELLOW, BLACK); 

TTY. PUT ( 9, 1, "Length of each fin = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, LENGTH, 4, 3); 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 9, 59, LENGTH_UNITS, YELLOW, BLACK); 

TTY. PUT (10, 1, "Height of each fin = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, HEIGHT, 4, 3) ; 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, HEIGHT_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "Width of each fin = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WIDTH, 4, 3); 

TTY. PUT (11, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (11, 59, WIDTH_UNITS, YELLOW, BLACK); 

TTY. PUT (12, 1, "Density of surrounding fluid = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, DENSITY, 4, 3); 

TTY. PUT (12, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (12, 59, DENSITY_UNITS, YELLOW, BLACK); 

TTY. PUT (13, 1, "Specific heat of surrounding fluid = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, SPECIFIC_HEAT, 4, 3) ; 

TTY. PUT (13, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (13, 59, SPECIFIC_HEAT_UNITS, YELLOW, BLACK); 

TTY. PUT (14, 1, "Thermal conductivity of material, Ic = ”r 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K, 4, 3); 

TTY. PUT (14, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (14, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (15, 1, "Thermal conductivity of surrounding fluid, )c = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K_FLUID, 4, 3); 

TTY. PUT (15, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (15, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (16, 1, "Kinematic viscosity of surrounding fluid = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, NU, 4, 3); 

TTY. PUT (16, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (16, 59, NU_UNITS, YELLOW, BLACK); 

TTY. PUT (17, 1, "Ambient Temperature = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_AMBIENT, 4, 3) ; 

TTY. PUT (17, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (17, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (18, 1, "Wall Temperature = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_WALL, 4, 3) ; 

TTY. PUT (18, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (18, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (23, 27, " Press any Icey to continue ", BLUE, CYAN) ; 
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TTY. GET (PAUSE, CHAR) ; 

FINOPT_PICTURES . OUTPUT_CONT_MSG; 

TTY. PUT ( 6, 35, " Outputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT ( 8, 1, "Heat transferred away by the fins, q 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, Q, 4, 3); 

TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, Q_UNITS, YELLOW, BLACK); 

TTY. PUT ( 9, 1, "Spacing between fins 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, SPACING, 4, 3) ; 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 9, 59, SPACING_UNITS, YELLOW, BLACK); 

TTY. PUT (10, 1, "Number of fins 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, NUM_FINS, 4, 3) ; 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, NUM_FINS_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "The fin efficiency 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, EFFICIENCY, 4, 3) ; 

TTY. PUT (11, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (12, 1, "The temperature at the tip of the fins 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_TIP, 4, 3); 

TTY. PUT (12, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (12, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (13, 1, "Channel Rayleigh number 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, RAYLEIGH_CHANNEL, 4, 3) ; 

TTY. PUT (13, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (14, 1, "Channel Nusselt number 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, NUSSELT_CHANNEL, 4, 3); 

TTY. PUT (14, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (23, 27, " Press any )cey to continue ", BLUE, CYAN) ; 

TTY. GET (PAUSE, CHAR); 



end MULTIPLE MAX FIN; 



(UNITS 


: 


in 


INTEGER; 


CONVERT DIST 


: 


in 


FLOATY- 


CONVERT TEMP 


: 


in 


FLOAT; 


G C 


: 


in 


FLOAT; 


GRAVITY 


: 


in 


FLOAT; 


WALL LENGTH 


: 


in 


out FLOAT 


WALL LENGTH UNITS 


: 


in 


STRING; 


WALL WIDTH 


: 


in 


out FLOAT 


WALL WIDTH UNITS 


: 


in 


STRING; 


LENGTH 


: 


in 


out FLOAT 


LENGTH UNITS 


: 


in 


STRING; 


HEIGHT 


: 


in 


out FLOAT 


HEIGHT UNITS 


: 


in 


STRING; 


WIDTH 


; 


in 


out FLOAT 


WIDTH UNITS 


: 


in 


STRING; 


SPACING 


: 


in 


out FLOAT 
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SPACING UNITS 


: in 


STRING; 






NUM FINS 


: in 


out FLOAT; 






NUM FINS UNITS 


: in 


STRING; 






DENSITY 


: in 


out FLOAT; 






DENSITY UNITS 


: in 


STRING; 






SPECIFIC HEAT 


: in 


out FLOAT; 






SPECIFIC HEAT UNITS 


: in 


STRING; 






K 


: in 


out FLOAT; 






K FLUID 


: in 


out FLOATY- 






K UNITS 


: in 


STRING; 






NU 


: in 


out FLOAT; 






NU UNITS 


: in 


STRING; 






T AMBIENT 


: in 


out FLOAT; 






T WALL 


: in 


out FLOAT; 






T UNITS 


: in 


STRING; 






Q 


: in 


out FLOAT; 






Q_UNITS 


: in 


STRING) is 


NUMBER_OUT 






: STRINGU. . 10) 


CHAR 






: CHARACTER; 


PAUSE, NUM_ 


_FINS_INT 




: INTEGER; 


PERIMETER, 


AREA, M, 


EFFICIENCY, 






DELTA T, T 


TIP, T AVG, BETA, MU, 






RAYLEIGH CHANNEL, NUSSELT CHANNEL, H, 






AREA BASE, 


AREA FIN, 


AREA TOTAL, P 


: FLOAT ; 



begin 



Inputs 



FINOPT_PICTURES . INPUT_MSG; 

GET_INPUT (WALL_LENGTH, "Length of the fin placement area", 32, 
WALL_LENGTH_UNITS , 2 , 14); 

GET_INPUT (WALL_WIDTH, "Width of the fin placement area", 31, 
WALL_WIDTH_UNITS, 2, 15); 

GET_INPUT {LENGTH, "Length of each fin", 18, LENGTH_UNITS, 2, 16); 
GET_INPUT (HEIGHT, "Height of each fin", 18, HEIGHT_UNITS, 2, 17); 
GET_INPUT (WIDTH, "Width of each fin", 17, WIDTH_UNITS, 2, 18); 
if (UNITS = 2) then 

GET_INPUT (DENSITY, "Density of surrounding fluid", 28, 
DENSITY_UNITS, 8, 19); 
else 

GET_INPUT (DENSITY, "Density of surrounding fluid", 28, 
DENSITY_UNITS, 6, 19) ; 
end if; 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN) ; 

TTY. GET (PAUSE, CHAR) ; 

FINOPT_PICTURES . INPUT_CONT_MSG; 
if (UNITS = 2) then 

GET_INPUT (SPECIFIC_HEA.T, "Specific heat of surrounding fluid", 
34, SPECIFIC_HEAT_UNITS, 15, 14); 

GET_INPUT(K, "Thermal conductivity of material, k", 35, 
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K_UNITS, 17, 15); 

GET_INPUT (K_FLUID, 

"Thermal conductivity of surrounding fluid, )c", 44, 

K_UNITS, 17, 16); 

GET_INPUT (NU, "Kinematic viscosity of surrounding fluid", 

40, NU_UNITS, 6, 17); 
else 

GET_INPUT ( SPECIFIC_HE1AT, "Specific heat of surrounding fluid", 
34, SPECIFIC_HEAT_UNITS, 12, 14); 

GET_INPUT(K, "Thermal conductivity of material, )c", 35, 
K_UNITS, 11, 15) ; 

GET_INPUT (K_FLUID, 

"Thermal conductivity of surrounding fluid, )c", 44, 

K_UNITS, 11, 16) ; 

GET_INPUT (NU, "Kinematic viscosity of surrounding fluid", 

40, NU_UNITS, 5, 17); 

end if; 

GET_INPUT (T_AMBIENT, "Ambient Temperature", 19, T_UNITS, 5, 18); 
GET_INPUT (T_WALL, "Wall Temperature", 16, T_UNITS, 5, 19); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN); 

TTY. GET (PAUSE, CHAR) ; 



Calculations (Assume Tip is Insulated) and Length >> Width 



T_AVG := (T_WALL+T_AMBIENT)/2.0; 

BETA := 1. 0/ (T_AVG+CONVERT_TEMP) ; 

DELTA_T := T_WALL-T_AMBIENT; 

MU := (NU*DENSITY) /G_C; 

P := ( (DENSITY**2) *GRAVITY*BETA*SPECIFIC_HEAT*DELTA_T) 

/ (MU* ( LENGTH /CONVERT_DI ST) *K_FLUID) ; 

SPACING := CONVERT_DIST* (2.714/ (P** (0.25) )) ; 

NUM_FINS := (WALL_WIDTH-WIDTH) / (SPACING+WIDTH) ; 

NUM_FINS := NUM_FINS-0. 4 9999999999; 

NUM_FINS_INT := INTEGER (NUM_FINS ) ; 

NUM_FINS_INT := NUM_FINS_INT+1 ; 

NUM_FINS := FLOAT (NUM_FINS_INT) ; 

RAYLEIGH_CHANNEL := ( (DENSITY**2 ) *GRAVITY*BETA*SPECIFIC_HEAT 
* ( (SPACING/CONVERT_DIST) **4 ) *DELTA_T) / (MU* (LENGTH/CONVERT_DIST) 
*K_FLUID) ; 

NUSSELT_CHANNEL := ( ( 576 . 0/ (RAYLEIGH_CHANNEL* *2 ) ) 
+(2.873/SQRT(RAYLEIGH_CHANNEL) ) ) ** (-0.5) ; 

H := (NUSSELT_CHANNEL*K_FLUID) / (SPACING/CONVERT_DIST) ; 
PERIMETER := 2 . 0*LENGTH/CONVERT_DIST; 

AREA := (WIDTH/CONVERT_DIST) * (LENGTH/CONVERT_DIST) ; 

M := SQRT ( (H* PERIMETER) / (K*AREA) ) ; 

EFFICIENCY := (TANH (M*HEIGHT/CONVERT_DIST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

AREA_BASE := 

( (WALL_WIDTH/CONVERT_DIST) * (WALL_LENGTH/CONVERT_DIST) ) 

- (NUM_FINS* ( LENGTH/ CONVERT_DI ST) * (WIDTH/CONVERT_DIST) ) ; 
AREA_FIN := NUM_FINS* (2 . 0* (HEIGHT/CONVERT_DIST) 

* (LENGTH/CONVERT_DIST) ) ; 

AREA_TOTAL := AREA_BASE+ (EFFICIENCY*AREA_FIN) ; 

Q := H*AREA_TOTAL*DELTA_T; 

T_TIP := T_AMBIENT+(DELTA_T/COSH(M*HEIGHT/CONVERT_DIST) ) ; 
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Outputs 



FINOPT_PICTURES.OUTPUT_MSG; 

TTY. PUT ( 5, 36, " Inputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT ( 7, 1, "Length of the fin placement area = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WALL_LENGTH, 4, 3); 

TTY. PUT ( 7, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 7, 59, WALL_LENGTH_UNITS, YELLOW, BLACK); 

TTY. PUT ( 8, 1, "Width of the fin placement area = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WALL_WIDTH, 4, 3); 

TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, WALL_WIDTH_UNITS, YELLOW, BLACK); 

TTY. PUT (9, 1, "Length of each fin = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, LENGTH, 4, 3); 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 9, 59, LENGTH_UNITS, YELLOW, BLACK); 

TTY. PUT (10, 1, "Height of each fin = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, HEIGHT, 4, 3); 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, HEIGHT_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "Width of each fin = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WIDTH, 4, 3); 

TTY. PUT (11, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (11, 59, WIDTH_UNITS, YELLOW, BLACK); 

TTY. PUT (12, 1, "Density of surrounding fluid = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, DENSITY, 4, 3); 

TTY. PUT (12, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (12, 59, DENSITY_UNITS, YELLOW, BLACK); 

TTY. PUT (13, 1, "Specific heat of surrounding fluid = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, SPECI FIC_HEAT, 4, 3); 

TTY. PUT (13, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (13, 59, SPECIFIC_HEAT_UNITS, YELLOW, BLACK); 

TTY. PUT (14, 1, "Thermal conductivity of material, )c = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K, 4, 3); 

TTY. PUT (14, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (14, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (15, 1, "Thermal conductivity of surrounding fluid, k = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K_FLUID, 4, 3); 

TTY. PUT (15, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (15, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (16, 1, "Kinematic viscosity of surrounding fluid = ", 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, NU, 4, 3); 

TTY. PUT (16, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (16, 59, NU UNITS, YELLOW, BLACK); 
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TTY. PUT (17, 1, "Ambient Temperature 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_AMBIENT, 4, 3); 

TTY. PUT (17, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (17, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (18, 1, "Wall Temperature 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_WALL, 4, 3) ; 

TTY. PUT (18, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (18, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN) 

TTY. GET (PAUSE, CHAR) ; 

FINOPT_PICTURES . OUTPUT_CONT_MSG; 

TTY. PUT ( 6, 35, " Outputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT ( 8, 1, "Heat transferred away by t)ie fins, q 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, Q, 4, 3); 

TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, Q_UNITS, YELLOW, BLACK); 

TTY. PUT ( 9, 1, "Spacing between fins 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, SPACING, 4, 3) ; 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 9, 59, SPACING_UNITS, YELLOW, BLACK); 

TTY. PUT (10, 1, "Number of fins 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, NUM_FINS, 4, 3) ; 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, NUM_FINS_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "The fin efficiency 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, EFFICIENCY, 4, 3) ; 

TTY. PUT (11, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (12, 1, "The temperature at the tip of the fins 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_TIP, 4, 3); 

TTY. PUT (12, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (12, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (13, 1, "Channel Rayleigh number 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, RAYLEIGH_CHANNEL, 4, 3); 

TTY. PUT (13, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (14, 1, "Channel Nusselt number 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, NUSSELT_CHANNEL, 4, 3) ; 

TTY. PUT (14, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (23, 27, " Press any ):ey to continue ", BLUE, CYAN) 

TTY. GET (PAUSE, CHAR) ; 

end MULTI PLE_MAX_Q; 

end FINOPT MULTIPLE; 
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— Title 


: EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS 
: A COMPUTER OPTIMIZATION 


— Author 
Date 


: John Reynold Censure 
: June 1992 



package FINOPT_PICTURES is 



procedure 


THESIS_MSG; 


procedure 


FINOPT_MSG; 


procedure 


INPUT_MSG; 


procedure 


INPUT_CONT_MSG; 


procedure 


OUTPUT_MSG; 


procedure 


OUT PUT_CONT_MS G ; 


procedure 


EXIT_MSG; 



end FINOPT PICTURES; 
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— Title 

— Author 

— Date 



EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS 
A COMPUTER OPTIMIZATION 
John Reynold Censure 
June 1992 



with COMMON_DISPLAY_TYPES, TTY, CURSOR; 

use COMMON_DISPLAY_TYPES ; 

package body FINOPT_PICTURES is 
procedure THESIS_MSG is 
PAUSE 
CHAR 
begin 

CURSOR. INHIBIT; 

TTY. CLEAR SCREEN; 



: INTEGER; 

: CHARACTER; 



TTY. PUT 


(2, 


28, 


•*NAVAL POSTGRADUATE SCHOOL", YELLOW, BLACK); 


TTY. PUT 


(4, 


31, 


"Monterey, 


California", YELLOW, BLACK); 


TTY. PUT 


(6, 


37, 


"THESIS", 


YELLOW, BLACK) ; 


TTY. PUT 


(8, 


16, 


tt 




YELLOW, 


RED) 


f 






TTY. PUT 


( 9, 


I — 1 


tt 


EXTENDED SURFACE HEAT SINKS 


YELLOW, 


RED) 


/ 






TTY. PUT 


(10, 


1— 1 


tt 


FOR ELECTRONIC COMPONENTS: 


YELLOW, 


RED) 


r 






TTY. PUT 


(11, 


16, 


** 


A COMPUTER OPTIMIZATION 


YELLOW, 


RED) 








TTY. PUT 


(12, 


16, 


tt 




YELLOW, 


RED) 


/ 






TTY. PUT 


(13, 


( — 1 


It 


by 


YELLOW, 


RED) 


r 






TTY. PUT 


(14, 


16, 


tt 




YELLOW, 


RED) 








TTY. PUT 


(15, 


16, 


tt 


John Reynold Censure 


YELLOW, 


RED) 








TTY. PUT 


(16, 


1 — 1 


tt 




YELLOW, 


RED) 


/ 






TTY. PUT 


(17, 


16, 


tt 


June 1992 


YELLOW, 


RED) 


f 






TTY. PUT 


(18, 


16, 


tt 




YELLOW, 


RED) 
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TTY. PUT (19, 16 



Thesis Advisor: 



Allan D. Kraus 



ti • 

f 

YELLOW, RED) ; 

TTY. PUT (20, 16, " 

II 

f 

YELLOW, RED) ; 

TTY. PUT (23, 27, *' Press any key to continue " 

TTY. GET (PAUSE, CHAR) ; 

end THESIS_MSG; 

procedure FINOPT_MSG is 

PAUSE 

CHAR 



begin 

TTY. CLEAR SCREEN; 



TTY. PUT 


(4, 


34, 


"Welcome To", GREEN, 


. BLACK) 


TTY . PUT 


(8, 


18, 


II 




YELLOW, GREEN); 


TTY. PUT 


(8, 


24, 


II 


II 

f 


YELLOW, GREEN) ; 




TTY. PUT 


(8, 


27, 


II 


II 

f 


YELLOW, GREEN); 




TTY . PUT 


(8, 


31, 


II 


II 

f 


YELLOW, GREEN) ; 




TTY. PUT 


(8, 


34, 


II 




", YELLOW, GREEN); 


TTY. PUT 


(8, 


41, 


II 




", YELLOW, GREEN); 


TTY . PUT 


(8, 


48, 


II 




", YELLOW, GREEN); 


TTY. PUT 


(8, 


55, 


II 


II 

f 


YELLOW, GREEN) ; 




TTY . PUT 


(8, 


58, 


II 


II 

f 


YELLOW, GREEN) ; 


TTY. PUT 


(8, 


61, 


II 


II 

r 


YELLOW, GREEN) ; 


TTY. PUT 


(9, 


18, 


II 


II 

/ 


YELLOW, GREEN) ; 




TTY. PUT 


(9, 


24, 


II 


II 

r 


YELLOW, GREEN) ; 




TTY. PUT 


(9, 


27, 


II 


II 


, YELLOW, GREEN); 


TTY. PUT 


(9, 


31, 


II 


II 

f 


YELLOW, GREEN) 




TTY. PUT 


(9, 


34, 


II 


II 

f 


YELLOW, GREEN) 




TTY . PUT 


(9, 


38, 


II 


II 

f 


YELLOW, GREEN) 




TTY. PUT 


(9, 


41, 


II 


II 

/ 


YELLOW, GREEN) 




TTY. PUT 


(9, 


45, 


II 


II 

f 


YELLOW, GREEN) 




TTY. PUT 


(9, 


50, 


II 


II 

f 


YELLOW, GREEN) 




TTY. PUT 


(9, 


55, 


II 


II 

f 


YELLOW, GREEN) 




TTY. PUT 


(9, 


58, 


II 


II 

f 


YELLOW, GREEN) 




TTY. PUT 


(9, 


61, 


II 


II 

f 


YELLOW, GREEN) 




TTY. PUT 


(10, 


18, 


II 




", YELLOW, GREEN) ; 


TTY. PUT 


(10, 


24, 


II 


II 


, YELLOW, GREEN) ; 


TTY. PUT 


(10, 


27, 


II 


II 


, YELLOW, GREEN) ; 


TTY. PUT 


(10, 


29, 


II 


II 


, YELLOW, GREEN) ; 


TTY . PUT 


(10, 


31, 


II 


II 


, YELLOW, GREEN) ; 


TTY. PUT 


(10, 


34, 


II 


II 


, YELLOW, GREEN) ; 


TTY. PUT 


(10, 


38, 


II 


II 


, YELLOW, GREEN) ; 


TTY. PUT 


(10, 


41, 


II 




", YELLOW, GREEN); 


TTY. PUT 


(10, 


50, 


II 


II 


, YELLOW, GREEN) ; 


TTY. PUT 


(10, 


55, 


II 


If 


, YELLOW, GREEN); 


TTY. PUT 


(10, 


58, 


II 


II 


, YELLOW, GREEN) ; 


TTY. PUT 


(10, 


61, 


II 


If 


, YELLOW, GREEN) 


' ; 


TTY. PUT 


(11, 


18, 


II 


If 


, YELLOW, GREEN) 


' ; 


TTY. PUT 


(11, 


24, 


II 


II 


, YELLOW, GREEN) 


; 



, BLUE, CYAN) ; 



: INTEGER; 

: CPiARACTER; 
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TTY. PUT 


(11, 


27, 


tt 


tt 

t 


YELLOW, 


GREEN ) ; 


TTY. PUT 


(11, 


30, 


tt 


tl 


, YELLOW 


, GREEN ) ; 


TTY. PUT 


(11, 


34, 


It 


II 

/ 


YELLOW, 


GREEN ) ; 


TTY. PUT 


(11, 


38, 


tl 


II 

/ 


YELLOW, 


GREEN) ; 


TTY. PUT 


(11, 


41, 


tt 


II 

r 


YELLOW, 


GREEN ) ; 


TTY . PUT 


(11, 


50, 


It 


II 

r 


YELLOW, 


GREEN) ; 


TTY. PUT 


(12, 


18, 


It 


II 

r 


YELLOW, 


GREEN) ; 


TTY. PUT 


(12, 


24, 


II 


II 

r 


YELLOW, 


GREEN) ; 


TTY. PUT 


(12, 


27, 


II 


II 

r 


YELLOW, 


GREEN) ; 


TTY. PUT 


(12, 


31, 


tl 


tl 

f 


YELLOW, 


GREEN ) ; 


TTY. PUT 


(12, 


34, 


tl 




", YELLOW, GREEN); 


TTY. PUT 


(12, 


41, 


tl 


tl 

/ 


YELLOW, 


GREEN) ; 


TTY. PUT 


(12, 


50, 


tl 


tl 

t 


YELLOW, 


GREEN) ; 


TTY. PUT 


(12, 


55, 


tl 


II 

/ 


YELLOW, 


GREEN) ; 


TTY. PUT 


(12, 


58, 


II 


II 

t 


‘yellow, 


GREEN) ; 


TTY. PUT 


(12, 


61, 


tl 


It 

t 


YELLOW, 


GREEN) ; 


TTY. PUT 


(17, 


26, 


tl' 


Version 1.0 


dated June 1992*’, GREEN, BLACK); 


TTY. PUT 


(19, 


24, 


*'l 


Written by 


John Reynold Censure", GREEN, BLACK) 


TTY. PUT 


(23, 


26, 


tl 


Press any 


key to continue ", BLUE, CYAN); 


TTY. GET 


(PAUSE, 


CHAR) 


t 





end FINOPT_MSG; 
procedure INPUT_MSG is 
begin 

TTY. CLEAR SCREEN; 



TTY. PUT 


( 1, 


19, 














It 












tl 

t 


YELLOW, 


CYAN) ; 


TTY. PUT 


( 2, 


19, 














tt 












tt 

t 


YELLOW, 


CYAN) ; 


TTY. PUT 


( 3, 


19, 


tt 


It 

/ 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 3, 


58, 


tt 


It 

/ 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 4, 


19, 


It 


It 

/ 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 4, 


58, 


tt 


It 

/ 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 5, 


19, 


It 


tt 

t 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 5, 


58, 


tt 


tt 

/ 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 6, 


19, 


tt 


It 

/ 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 6, 


58, 


tt 


It 

f 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 7, 


19, 


tt 


tt 

/ 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 7, 


58, 


tl 


tt 

f 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 8, 


19, 


tt 


II 

/ 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 8, 


58, 


It 


tl 

t 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 9, 


19, 


tt 


II 

r 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 9, 


58, 


tt 


tt 

/ 


YELLOW, 


CYAN) ; 






TTY. PUT 


(10, 


19, 














tl 












II 

f 


YELLOW, 


CYAN) ; 


TTY. PUT 


(11, 


19, 














tt 












tl 

/ 


YELLOW, 


CYAN) 


TTY. PUT 


( 3, 


22, 


tl 










tt 

t 


YELLOW, 


RED) ; 
















TTY. PUT 


( 4, 


22, 


** 




Required Inputs 




It 

/ 


BRIGHT WHITE, 


RED) ; 












TTY. PUT 


( 5, 


22, 


tt 










tl 

/ 


YELLOW, 


RED) ; 
















TTY. PUT 


( 6, 


22, 


tl 


Press enter 


to choose default or 


It 

/ 
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YELLOW, RED) ; 

TTY. PUT { 1 , 22 , " 

YELLOW, RED); 

TTY. PUT ( 6, 22, ** 

YELLOW, RED) ; 

TTY. PUT ( 7, 22, ** 

YELLOW, RED) ; 

TTY. PUT ( 8, 22, " 

BRIGHT_WHITE, RED) ; 
TTY. PUT { 9, 22, " 

YELLOW, RED) ; 



any other key to input new value. 
All values must be inputted as 
floats. Examples: 5.0 or 2.0E-3 
Do not input 0.8 as .8 ! ! ! 



II 



II 



II 



II 



II 



end INPUT_MSG; 

procedure INPUT_CONT_MSG is 

begin 



TTY. CLEAR 


SCREEN 


/ 










TTY. PUT 


( 


1, 


19, 












II 
















", YELLOW, CYAN); 


TTY. PUT 


( 


2, 


19, 












II 
















", YELLOW, CYAN); 


TTY. PUT 


{ 


3, 


19, 


11 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 


3, 


58, 


It 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 


4, 


19, 


II 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 


4, 


58, 


II 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 


5, 


19, 


11 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 


5, 


58, 


It 


YELLOW, 


CYAN) ; 






TTY. PUT 


( 


6, 


19, 


It 


", YELLOW, 


CYAN) ; 






TTY. PUT 


( 


6, 


58, 


It 


", YELLOW, 


CYAN) ; 






TTY. PUT 


( 


7, 


19, 


11 


", YELLOW, 


CYAN ) ; 






TTY. PUT 


( 


7, 


58, 


It 


", YELLOW, 


CYAN ) ; 






TTY. PUT 


( 


8, 


19, 


11 


", YELLOW, 


CYAN) ; 






TTY. PUT 


( 


8, 


58, 


It 


", YELLOW, 


CYAN) ; 






TTY. PUT 


( 


9, 


19, 


It 


", YELLOW, 


CYAN) ; 






TTY. PUT 


( 


9, 


58, 


It 


", YELLOW, 


CYAN) ; 






TTY. PUT 


(10, 


19, 












II 
















", YELLOW, CYAN) ; 


TTY. PUT 


(11, 


19, 












II 
















", YELLOW, CYAN) 


TTY. PUT 


( 


3, 


22, 


II 








It 

/ 


YELLOW, 


RED) ; 














TTY. PUT 


( 


4, 


22, 


It 


Required 


Inputs 


Continued ", 


BRIGHT WHITE, 


RED) ; 










TTY. PUT 


( 


5, 


22, 


II 








It 

f 


YELLOW, 


RED) ; 














TTY. PUT 


( 


6, 


22, 


It 


Press enter 


to choose 


default or ", 


YELLOW, 


RED) ; 














TTY. PUT 


( 


7, 


22, 


It 


any other key to input 


new value. ", 


YELLOW, 


RED) ; 














TTY. PUT 


( 


6, 


22, 


It 


All values must be 


inputted as ", 


YELLOW, 


RED) ; 














TTY. PUT 


( 


7, 


22, 


It 


floats. Examples: 5 


.0 


or 2.0E-3 


YELLOW, 


RED) ; 














TTY. PUT 


( 


8, 


22, 


It 


Do not input 0.8 


as 


. 8 ! ! ! 


BRIGHT WHITE, 


RED) ; 
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TTY. PUT ( 9, 22, ” 
YELLOW, RED) ; 

end INPUT CONT MSG; 



procedure OUTPUT^MSG is 
begin 



TTY . CLEAR_SCREEN ; 
TTY. PUT ( 1, 26, " 

TTY. PUT { 2, 26, *’ 

TTY. PUT { 2, 53, 

TTY. PUT { 3, 26, " 

TTY. PUT { 2, 28, " 

end OUTPUT MSG; 



", YELLOW, CYAN) ; 

", YELLOW, CYAN); 

Inputs => Outputs 



procedure OUTPUT_CONT_MSG is 
begin 

TTY. CLEAR SCREEN; 



TTY. PUT 


( 1, 


26, " 




TTY. PUT 


{ 2, 


26, " 


", YELLOW, CYAN); 


TTY. PUT 


{ 2, 


53, " 


", YELLOW, CYAN) ; 


TTY. PUT 


{ 3, 


26, " 


", YELLOW, CYAN); 


TTY. PUT 


( 3, 


53, " 


", YELLOW, CYAN); 


TTY. PUT 


( 4, 


26, " 




TTY. PUT 


( 2, 


28, " 


Inputs => Output; 


TTY . PUT 


( 3, 


28, " 


Continued 


end OUTPUT_ 


_CONT_ 


_MSG; 




procedure EXIT_MSG is 




begin 


TTY. CLEAR SCREEN; 




TTY. PUT 


(11, 


18, " 


", YELLOW, CYAN); 


TTY. PUT 


(11, 


58, " 


", YELLOW, CYAN) ; 


TTY. PUT 


(12, 


18, " 


", YELLOW, CYAN) ; 


TTY. PUT 


(12, 


58, " 


", YELLOW, CYAN); 


TTY. PUT 


(13, 


18, " 


", YELLOW, CYAN); 


TTY. PUT 


(13, 


58, " 


", YELLOW, CYAN); 


TTY. PUT 


( 9, 


18, " 




YELLOW, 


CYAN) 


; 




TTY. PUT 


(10, 


CO 




YELLOW, 


CYAN) 


; 




TTY. PUT 


(14, 


CD 




YELLOW, 


CYAN) 


r 




TTY. PUT 


(15, 


18, " 




YELLOW, 


CYAN) 


; 




TTY. PUT 


(11, 


21, " 





RED) ; 



", YELLOW, CYAN); 

", YELLOW, CYAN) ; 
", BRIGHT_WHITE, RED) 

", YELLOW, CYAN) ; 

", YELLOW, CYAN); 
", BRIGHT_WHITE, RED) 
", BRIGHT WHITE, RED) 



", YELLOW 



89 



TTY. PUT (12, 21 



Thank you for using FINOPT ! ! ! 



YELLOW 



RED) ; 

TTY. PUT (13, 21, " 

RED) ; 

end EXIT_MSG; 
end FINOPT PICTURES; 



", YELLOW, 



90 



Title 

— Author 

— Date 



EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS: 
A COMPUTER OPTIMIZATION 
John Reynold Censure 
June 1992 



package FINOPT_SINGLE is 



procedure 


CYLINDRICAL_ 


NO OPT (UNITS 


: 


in 


INTEGER; 






CONVERT DIST 


: 


in 


FLOAT; 






DIAMETER 


: 


in 


out FLOAT; 






DIAMETER UNITS 


: 


in 


STRING; 






HEIGHT 


: 


in 


out FLOAT; 






HEIGHT UNITS 


: 


in 


STRING; 






H 


: 


in 


out FLOAT ; 






H UNITS 


: 


in 


STRING; 






K 


: 


in 


out FLOAT; 






K UNITS 


: 


in 


STRING; 






T AMBIENT 


: 


in 


out FLOAT; 






T WALL 


: 


in 


out FLOAT; 






T UNITS 


: 


in 


STRING; 






Q 


: 


in 


out FLOAT; 






Q_UNITS 


; 


in 


STRING) ; 


procedure 


CYLINDRICAL_ 


_GIVEN_VOL (UNITS 






in 


INTEGER; 




CONVERT DIST 




. 


in FLOAT; 






VOLUME 




; 


in out 


FLOAT; 




VOLUME UNITS 




. 


in STRING; 






DIAMETER 




: 


in out 


FLOATY- 




DIAMETER UNITS 




. 


in STRING; 






HEIGHT 




: 


in out 


FLOAT; 




HEIGHT UNITS 




. 


in STRING; 






H 




: 


in out 


FLOAT; 




H UNITS 




. 


in STRING; 






K 




: 


in out 


FLOAT; 




K UNITS 




. 


in STRING; 






T_AMBIENT 




: 


in out 


FLOAT ; 
















T_WALL 




: 


in out 


FLOAT ; 
















T UNITS 




: 


in STRING; 






Q 




: 


in out 


FLOAT ; 




Q_UNITS 




. 


in 


STRING) ; 












procedure 


CYLINDRICAL^ 


GIVEN Q (UNITS 




: in INTEGER; 






CONVERT DIST 




: in FLOAT; 






DIAMETER 




: in out 


FLOAT; 
















DIAMETER UNITS 




: in STRING; 
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FLOAT; 

FLOAT ; 

FLOAT ; 

FLOATY- 
FLOAT ; 

FLOAT ; 



HEIGHT 


5 


in 


out 


HEIGHT UNITS 


: 


in 


STRING; 


H 


: 


in 


out 


H UNITS 


1 


in 


STRING; 


K 


• 


in 


out 


K UNITS 


: 


in 


STRING; 


T_AMBIENT 


: 


in 


out 


T_WALL 


• 


in 


out 


T UNITS 


j 


in 


STRING; 


Q 


; 


in 


out 


Q_UNITS 


: 


in 


STRING) 



procedure 


RECTANGULAR NO OPT (UNITS 


: in 


INTEGER; 




CONVERT DIST 


: in 


FLOAT; 




LENGTH 


: in 


out FLOAT 




LENGTH UNITS 


: in 


STRING; 




HEIGHT 


: in 


out FLOAT 




HEIGHT UNITS 


: in 


STRING; 




WIDTH 


: in 


out FLOAT 




WIDTH UNITS 


: in 


STRING; 




H 


: in 


out FLOAT 




H UNITS 


: in 


STRING; 




K 


: in 


out FLOAT 




K UNITS 


: in 


STRING; 




T AMBIENT 


: in 


out FLOAT 




T WALL 


: in 


out FLOAT 




T UNITS 


: in 


STRING; 




Q 


: in 


out FLOAT 




Q_UNITS 


: in 


STRING) ; 


procedure 


RECTANGULAR_GIVEN_VOL (UNITS 


: 


in 


INTEGER; 


CONVERT DIST 


. 


in FLOAT; 




VOLUME 


1 


in out 


FLOAT ; 




VOLUME UNITS 


: 


in STRING 




LENGTH 


: 


in out 


FLOAT; 




LENGTH UNITS 


: 


in STRING 




HEIGHT 


: 


in out 


FLOAT; 




HEIGHT UNITS 




in STRING 




WIDTH 


: 


in out 


FLOAT; 




WIDTH UNITS 


: 


in STRING 




H 


: 


in out 


FLOAT ; 




H_UNITS 


: 


in STRING 
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FLOAT ; 



FLOAT ; 
FLOAT; 

FLOAT; 
STRING) ; 



K 


: in 


out 


K UNITS 


: in 


STRING 


T_AMBIENT 


: in 


out 


T_WALL 


: in 


out 


T UNITS 


: in 


STRING 


Q 


: in 


out 


Q_UNITS 


: in 





procedure 


RECTANGULAR GIVEN Q (UNITS 


: 


in 


INTEGER 




CONVERT DIST 


: 


in 


FLOAT ; 




LENGTH 


: 


in 


out 


FLOAT; 




LENGTH UNITS 


: 


in 


STRING; 




HEIGHT 


: 


in 


out 


FLOAT; 




HEIGHT UNITS 


: 


in 


STRING; 




WIDTH 


: 


in 


out 


FLOAT; 




WIDTH UNITS 


: 


in 


STRING; 




H 


: 


in 


out 


FLOAT; 




H UNITS 


: 


in 


STRING; 




K 


: 


in 


out 


FLOAT ; 




K UNITS 


: 


in 


STRING; 




T AMBIENT 


: 


in 


out 


FLOAT ; 




T WALL 


: 


in 


out 


FLOAT ; 




T UNITS 


: 


in 


STRING; 




Q 


: 


in 


out 


FLOAT ; 




Q UNITS 


: 


in 


STRING) 



end FINOPT SINGLE; 
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Title 



— Author 

— Date 



EXTENDED SURFACE HEAT SINKS FOR ELECTRONIC COMPONENTS: 
A COMPUTER OPTIMIZATION 
John Reynold Censure 
June 1992 



with TEXT_IO, COMMON_DISPLAY_TYPES, TTY, CURSOR, FINOPT_COMMON, 

GENERIC_ELEMENTARY_FUNCTIONS, FINOPT_PICTURES ; 

use TEXT_IO, COMMON_DISPLAY_TYPES, FINOPT_COMMON; 

package body FINOPT_SINGLE is 

package FLOAT_INOUT is new FLOAT_I O ( FLOAT ) ; 
package MY_ELEMENTARY_FUNCTIONS is 

new GENERIC_ELEMENTARY_FUNCTIONS (FLOAT) ; 
use FLOAT INOUT, MY ELEMENTARY FUNCTIONS; 



(UNITS 


: in 


INTEGER; 


CONVERT DIST 


: in 


FLOAT; 


DIAMETER 


: in 


out FLOAT; 


DIAMETER UNITS 


: in 


STRING; 


HEIGHT 


: in 


out FLOAT; 


HEIGHT UNITS 


: in 


STRING; 


H 


: in 


out FLOAT; 


H UNITS 


: in 


STRING; 


K 


: in 


out FLOAT; 


K UNITS 


: in 


STRING; 


T AMBIENT 


: in 


out FLOAT; 


T WALL 


; in 


out FLOAT; 


T UNITS 


: in 


STRING; 


Q 


: in 


out FLOAT; 


Q UNITS 


: in 


STRING) is 



NUMBER_OUT 
STRING (1. . 10) ; 

CHAR 

PAUSE 

PERIMETER, AREA, M, EFFICIENCY, 

DELTA_T, T_TIP 

PI : constant := 

3.14159 26535 89793 23846 26433 83279 50288 41972 



CHARACTER; 

INTEGER; 

FLOAT; 



begin 



Inputs 



FINOPT_PICTURES. INPUT_MSG; 

GET_INPUT (DIAMETER, "Diameter of the cylindrical spine", 33, 
DIAMETER_UNITS, 2, 14); 

GET_INPUT (HEIGHT, "Height of the cylindrical spine", 31, 
HEIGHT UNITS, 2, 15); 
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if 



(UNITS = 2) 
GET_INPUT (H, 
H_UNITS, 19, 
GET_INPUT (K, 
K UNITS, 17, 



then 

"Convection heat transfer coefficient, 
16) ; 



"Thermal conductivity of material, k" , 
17) ; 



else 



h", 39, 
35, 



GET_INPUT (H, 
H_UNITS, 13, 
GET_INPUT (K, 
K UNITS, 11, 



"Convection heat transfer coefficient, 
16) ; 

"Thermal conductivity of material, )c", 
17) ; 



h", 

35, 



39, 



end if; 

GET_INPUT (T_AMBIENT, "Ambient Temperature", 19, 

T_UNITS, 5, 18); 

GET_INPUT (T_WALL, "Wall Temperature", 16, 

T_UNITS, 5, 19); 

TTY. PUT (23, 27, " Press any Icey to continue ", BLUE, CYAN); 

TTY. GET (PAUSE, CHAR) ; 



Calculations (Assume Tip is Insulated) 



PERIMETER := PI * DIAMETER/ CONVERT_D 1ST; 

AREA := (PI* ( (DIAMETER/CONVERT_DIST) **2) ) /4.0; 

M := SQRT ( (H* PERIMETER) / (K*AREA) ) ; 

DELTA_T := T_WALL-T_AMBIENT; 

Q := K*AREA*M*DELTA_T*TANH (M*HEIGHT/CONVERT_DIST) ; 
EFFICIENCY := (TANK (M*HEIGHT/CONVERT_DIST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

T TIP := T AMBIENT+ (DELTA T/COSH (M*HEIGHT/CONVERT DIST) ) ; 



Outputs 



FINOPT_PICTURES . OUTPUT_MSG; 

TTY. PUT ( 5, 36, " Inputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT ( 7, 1, "Diameter of the cylindrical spine 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, DIAMETER, 4, 3) ; 

TTY. PUT ( 7, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 7, 59, DIAMETER_UNITS, YELLOW, BLACK); 

TTY. PUT ( 8, 1, "Height of the cylindrical spine 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, HEIGHT, 4, 3) ; 

TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, HEIGHT_UNITS, YELLOW, BLACK); 

TTY. PUT (9, 1, "Convection heat transfer coefficient, h 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, H, 4, 3) ; 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 9, 59, H_UNITS, YELLOW, BLACK); 

TTY. PUT (10, 1, "Thermal conductivity of material, )c 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K, 4, 3); 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "Ambient Temperature 
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YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_AMBIENT, 4, 3) ; 

TTY. PUT (11, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (11, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (12, 1, "Wall Temperature 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_WALL, 4, 3) ; 

TTY. PUT (12, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (12, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (14, 35, " Outputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT (16, 1, "Heat transferred away by the fin, q 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, Q, 4, 3); 

TTY. PUT (16, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (16, 59, QJJNITS, YELLOW, BLACK); 

TTY. PUT (17, 1, "The fin efficiency 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, EFFICIENCY, 4, 3) ; 

TTY. PUT (17, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (18, 1, "The temperature at the tip 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_TIP, 4, 3); 

TTY. PUT (18, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (18, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN) ; 
TTY. GET (PAUSE, CHAR) ; 

end CYLINDRICAL NO OPT; 



procedure 


CYLINDRICAL GIVEN VOL (UNITS 


: 


in 




INTEGER; 




CONVERT DIST 


: 


in 


FLOAT ; 


FLOAT ; 


VOLUME 


I 


in 


out 




VOLUME UNITS 


; 


in 


STRING; 




DIAMETER 


: 


in 


out 


FLOAT ; 




DIAMETER UNITS 




in 


STRING; 




HEIGHT 


: 


in 


out 


FLOAT; 




HEIGHT UNITS 




in 


STRING; 




H 


: 


in 


out 


FLOAT; 




H UNITS 


: 


in 


STRING; 




K 


: 


in 


out 


FLOAT; 




K UNITS 


; 


in 


STRING; 


FLOAT; 


T_AMBIENT 


1 


in 


out 




T WALL 


; 


in 


out 


FLOAT; 




T UNITS 


: 


in 


STRING; 




Q 


: 


in 


out 


FLOAT; 




Q_UNITS 




in 


STRING) 
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NUMBER_OUT : 

STRING (1. .10) ; 

CHAR - : CHARACTER; 

PAUSE : INTEGER; 

PERIMETER, AREA, M, EFFICIENCY, 

DELTA_T, T_TIP : FLOAT; 

PI : constant := 

3. 14159_26535_89793_23846_26433_83279_50288_41972 ; 
begin 



Inputs 



FINOPT_PICTURES . INPUT_MSG; 

GET_INPUT (VOLUME, "Volume of the cylindrical spine", 31, 
VOLUME_UNITS, 4, 14); 
if (UNITS = 2) then 

GET_INPUT(H, "Convection heat transfer coefficient, h", 39, 
H_UNITS, 19, 15); 

GET_INPUT(K, "Thermal conductivity of material, )c", 35, 
K_UNITS, 17, 16); 
else 

GET_INPUT(H, "Convection heat transfer coefficient, h", 39, 
H_UNITS, 13, 15); 

GET_INPUT(K, "Thermal conductivity of material, k" , 35, 
K_UNITS, 11, 16); 
end if; 

GET_INPUT(T_AMBIENT, "Ambient Temperature", 19, ■ 

T_UNITS, 5, 17); 

GET_INPUT(T_WALL, "Wall Temperature", 16, 

T_UNITS, 5, 18); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN); 

TTY. GET (PAUSE, CHAR) ; 



Calculations (Assume Tip is Insulated) 



DIAMETER := CONVERT_DIST*l . 5031* (H/K* (VOLUME 
/CONVERT_DIST**3) **2) ** (0.2) ; 

HEIGHT := CONVERT_DIST*0. 5636* ( (VOLUME 
/CONVERT_DIST**3) * (K/H) **2) ** (0.2); 

PERIMETER := PI*DIAMETER/CONVERT_DIST; 

AREA := (PI* ( (DIAMETER/CONVERT_DIST) **2) ) /4 . 0; 

M := SQRT( (H* PERIMETER) / (K*AREA) ) ; 

DELTA_T := T_WALL-T_AMBIENT; 

Q := K*AREA*M*DELTA_T*TANH (M*HEIGHT/CONVERT_DIST) ; 
EFFICIENCY := (TANH (M*HEIGHT/CONVERT_DIST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

T TIP ;= T AMBIENT+ (DELTA T/COSH (M*HEIGHT/CONVERT DIST) ) ; 
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Outputs 



FINOPT_PICTURES . OUTPUT_MSG; 

TTY. PUT ( 5, 36, " Inputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT (7, 1, "Volume of the cylindrical spine 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, VOLUME, 4, 3) ; 

TTY. PUT ( 7, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 7, 59, VOLUME_UNITS, YELLOW, BLACK); 

TTY. PUT ( 8, 1, "Convection heat transfer coefficient, h 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, H, 4, 3); 

TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, H_UNITS, YELLOW, BLACK); 

TTY. PUT ( 9, 1, "Thermal conductivity of material, k 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K, 4, 3) ; 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 9, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (10, 1, "Ambient Temperature 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_AMBIENT, 4, 3); 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "Wall Temperature 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_WALL, 4, 3) ; 

TTY. PUT (11, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (11, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (13, 35, " Outputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT (15, 1, "Optimum diameter of the cylindrical spine 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, DIAMETER, 4, 3) ; 

TTY. PUT (15, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (15, 59, DIAMETER_UNITS, YELLOW, ’ BLACK) ; 

TTY. PUT (16, 1, "Optimum height of the cylindrical spine 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, HEIGHT, 4, 3) ; 

TTY. PUT (16, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (16, 59, HEIGHT_UNITS, YELLOW, BLACK); 

TTY. PUT (17, 1, "Heat transferred away by the fin, q 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, Q, 4, 3); 

TTY. PUT (17, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (17, 59, Q_UNITS, YELLOW, BLACK); 

TTY. PUT (18, 1, "The fin efficiency 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, EFFICIENCY, 4, 3); 

TTY. PUT (18, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (19, 1, "The temperature at the tip 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_TIP, 4, 3); 

TTY. PUT (19, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (19, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN); 
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TTY. GET (PAUSE, CHAR) ; 



end CYLINDRICAL GIVEN VOL; 



procedure 


CYLINDRICAL GIVEN Q (UNITS 


: in INTEGER 




CONVERT DIST 


: in FLOAT; 




DIAMETER 


: in out 


FLOAT; 


DIAMETER UNITS 


: in STRING; 




HEIGHT 


: in out 


FLOAT ; 


HEIGHT UNITS 


: in STRING; 




H 


: in out 


FLOAT ; 


H UNITS 


: in STRING; 




K 


: in out 


FLOAT ; 


K UNITS 


: in STRING; 




T_AMBIENT 


: in out 


FLOAT; 








T_WALL 


: in out 


FLOAT; 








T UNITS 


: in STRING; 




Q 


: in out 


FLOAT; 


Q_UNITS 


: in STRING) 


is 







NUMBER_OUT 
STRINGd. . 10) ; 

CHAR 

PAUSE 

PERIMETER, AREA, M, EFFICIENCY, 

DELTA_T, T_TIP 

PI : constant := 

3.14159 26535 89793 23846 26433 83279 50288 41972 ; 



CHARACTER; 

INTEGER; 

FLOAT; 



begin 



Inputs 



FINOPT__PICTURES . INPUT__MSG; 
if (UNITS = 2) then 

GET_INPUT(Q, *’Heat transferred away by the fin, q”, 35, 
Q_UNITS, 6, 14); 

GET_INPUT(H, "Convection heat transfer coefficient, h", 39, 
H_UNITS, 19, 15) ; 

GET_INPUT(K, "Thermal conductivity of material, k", 35, 
K__UNITS, 17, 16); 
else 

GET INPUT (Q, "Heat transferred away by the fin, q", 35, 
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Q_UNITS, 1, 14); 

GET_INPUT(H, "Convection heat transfer coefficient, h", 39, 
H_UNITS, 13, 15); 

GET_INPUT(K, "Thermal conductivity of material, )<", 35, 
K_UNITS, 11, 16) ; 
end if; 

GET_INPUT (T_AMBIENT, "Ambient Temperature", 19, 

T_UNITS, 5, 17); 

GET_INPUT (T_WALL, "Wall Temperature", 16, 

T_UNITS, 5, 18); 

TTY. PUT (23, 27, " Press any )cey to continue ", BLUE, CYAN); 

TTY. GET (PAUSE, CHAR) ; 



Calculations (Assume Tip is Insulated) 



DIAMETER := CONVERT_DIST*0 . 9165* ( (Q**2 ) 

/ (H*K* ( (T_WALL-T_AMBIENT) **2) ) ) ** (1.0/3. 0) ; 

HEIGHT := CONVERT_DIST*0 . 4400* ( (Q*K) 

/( (H**2) * (T_WALL-T_AMBIENT) ) )**(!. 0/3.0) ; 

PERIMETER := PI*DIAMETER/CONVERT_DIST; 

AREA := (PI* ( (DIAMETER/CONVERT_DIST) **2) ) /4 . 0; 

M : = SQRT ( ( H* PERIMETER) / ( K*AREA) ) ; 

DELTA_T := T_WALL-T_AMBIENT; 

Q ;= K*AREA*M*DELTA_T*TANH (M*HEIGHT/CONVERT_DIST) ; 
EFFICIENCY := (TANH (M*HEIGHT/CONVERT_DIST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

T TIP := T AMBIENT+ (DELTA T/COSH (M*HEIGHT/CONVERT DIST) ) ; 



Outputs 



FINOPT_PICTURES . OUTPUT_MSG; 

TTY. PUT ( 5, 36, " Inputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT ( 7, 1, "Heat transferred away by the fin, q 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, Q, 4, 3); 

TTY. PUT ( 7, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 7, 59, Q_UNITS, YELLOW, BLACK); 

TTY. PUT ( 8, 1, "Convection heat transfer coefficient, h 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, H, 4, 3); 

TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, H_UNITS, YELLOW, BLACK); 

TTY. PUT ( 9, 1, "Thermal conductivity of material, Ic 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K, 4, 3) ; 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 9, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (10, 1, "Ambient Temperature 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_AMBIENT, 4, 3); 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "Wall Temperature 
YELLOW, BLACK) ; 
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PUT (NUMBER_OUT, T_WALL, 4, 3); 

TTY. PUT (11, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (11, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (13, 35, " Outputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT (15, 1, "Optimum diameter of the cylindrical spine 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, DIAMETER, 4, 3); 

TTY. PUT (15, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (15, 59, DIAMETER_UNITS, YELLOW, BLACK); 

TTY. PUT (16, 1, "Optimum height of the cylindrical spine 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, HEIGHT, 4, 3) ; 

TTY. PUT (16, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (16, 59, HEIGHT_UNITS, YELLOW, BLACK); 

TTY. PUT (17, 1, "The fin efficiency 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, EFFICIENCY, 4, 3) ; 

TTY. PUT (17, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (18, 1, "The temperature at the tip 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_TIP, 4, 3); 

TTY. PUT (18, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (18, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (23, 27, " Press any Icey to continue ", BLUE, CYAN) ; 

TTY. GET (PAUSE, CHAR); 

end CYLINDRICAL GIVEN Q; 



procedure RECTANGULAR 


NO OPT (UNITS 


: 


in 


INTEGER; 






CONVERT DI ST 


: 


in 


FLOAT; 






LENGTH 


: 


in 


out FLOAT; 






LENGTH UNITS 


: 


in 


STRING; 






HEIGHT 


: 


in 


out FLOAT; 






HEIGHT UNITS 


: 


in 


STRING; 






WIDTH 


: 


in 


out FLOAT; 






WIDTH UNITS 


: 


in 


STRING; 






H 


: 


in 


out FLOAT; 






H UNITS 


: 


in 


STRING; 






K 


: 


in 


out FLOAT; 






K UNITS 


: 


in 


STRING; 






T AMBIENT 


: 


in 


out FLOAT; 






T WALL 


: 


in 


out FLOAT; 






T UNITS 


: 


in 


STRING; 






Q 


: 


in 


out FLOAT; 






Q_UNITS 


: 


in 


STRING) is 


NUMBER OUT 






; 






STRING (1. .10) ; 












CHAR 






: 


CHARACTER; 


PAUSE 






: 


INTEGER; 


PERIMETER, 


AREA, M, 


EFFICIENCY, 








DELTA_T, T_ 


_TIP 






FLOAT; 
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begin 



Inputs 



FINOPT_PICTURES . INPUT_MSG; 

GET_IN PUT (LENGTH, "Length of the rectangular fin", 29, 
LENGTH_UNITS, 2, 14); 

GET_INPUT (HEIGHT, "Height of the rectangular fin", 29, 
HEIGHT_UNITS, 2, 15); 

GET_INPUT (WIDTH, "Width of the rectangular fin", 28, 
WIDTH_UNITS, 2, 16); 
if (UNITS = 2) then 

GET_INPUT(H, "Convection heat transfer coefficient, h", 39, 
H_UNITS, 19, 17); 

GET_INPUT(K, "Thermal conductivity of material. It", 35, 
K_UNITS, 17, 18); 
else 

GET_INPUT(H, "Convection heat transfer coefficient, h", 39, 
H_UNITS, 13, 17); 

GET_INPUT(K, "Thermal conductivity of material. It", 35, 
K_UNITS, 11, 18); 
end if; 

GET_INPUT (T_AMBIENT, "Ambient Temperature", 19, 

T_UNITS, 5, 19); 

GET_INPUT(T_WALL, "Wall Temperature", 16, 

T_UNITS, 5, 20); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN) ; 
TTY. GET (PAUSE, CHAR) ; 



Calculations (Assume Tip is Insulated) and Length >> Width 



PERIMETER := 2 . 0*LENGTH/CONVERT_DIST; 

AREA := (WIDTH/CONVERT_DIST) * (LENGTH/CONVERT_DIST) ; 

M := SQRT ( (H* PERIMETER) / (K*AREA) ) ; 

DELTA_T := T_WALL-T_AMBIENT; 

Q := K*AREA*M*DELTA_T*TANH(M*HEIGHT/CONVERT_DIST) ; 
EFFICIENCY := (TANH (M* HEIGHT/ CONVERT_DI ST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

T TIP := T AMBIENT+ (DELTA T/COSH (M*HEIGHT/CONVERT DIST) ) ; 



Outputs 



FINOPT_PICTURES . OUTPUT_MSG; 

TTY. PUT ( 5, 36, " Inputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT ( 7, 1, "Length of the rectangular fin 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, LENGTH, 4, 3) ; 

TTY. PUT ( 7, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 7, 59, LENGTH_UNITS, YELLOW, BLACK); 

TTY. PUT ( 8, 1, "Height of the rectangular fin 
YELLOW, BLACK) ; 

PUT (NUMBER OUT, HEIGHT, 4, 3); 
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TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, HEIGHT_UNITS , YELLOW, BLACK); 

TTY. PUT ( 9, 1, "Width of the rectangular fin 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WIDTH, 4, 3); 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 9, 59, WIDTH_UNITS, YELLOW, BLACK); 

TTY. PUT (10, 1, "Convection heat transfer coefficient, h 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, H, 4, 3); 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, H_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "Thermal conductivity of material, )c 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K, 4, 3); 

TTY. PUT (11, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (11, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (12, 1, "Ambient Temperature 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_AMBIENT, 4, 3); 

TTY. PUT (12, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (12, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (13, 1, "Wall Temperature 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_WALL, 4, 3) ; 

TTY. PUT (13, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (13, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (15, 35, " Outputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT (17, 1, "Heat transferred away by the fin, q 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, Q, 4, 3); 

TT Y . PUT (17, 48, NUMBER_OUT , YELLOW , BLACK ) ; 

TTY. PUT (17, 59, Q_UNITS, YELLOW, BLACK); 

TTY. PUT (18, 1, "The fin efficiency 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, EFFICIENCY, 4, 3) ; 

TTY. PUT (18, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (19, 1, "The temperature at the tip 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_TIP, 4, 3) ; 

TTY. PUT (19, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY, PUT (19, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN) ; 

TTY. GET (PAUSE, CHAR) ; 

end RECTANGULAR NO OPT; 



procedure 


RECTANGULAR GIVEN VOL (UNITS 


: in 




INTEGER; 




CONVERT DIST 


: in 


FLOAT; 




VOLUME 


: in 


out 


FLOAT; 




VOLUME UNITS 


: in 


STRING 




LENGTH 


: in 


out 


FLOAT; 




LENGTH_UNITS 


: in 


STRING 
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HEIGHT 


: 


in 


out 


FLOAT; 


HEIGHT UNITS 


. 


in 


STRING; 




WIDTH 


: 


in 


out 


FLOAT; 


WIDTH UNITS 


• 


in 


STRING; 




H 


: 


in 


out 


FLOAT ; 


H UNITS 


. 


in 


STRING; 




K 




in 


out 


FLOAT; 


K UNITS 


• 


in 


STRING; 




T_AMBIENT 




in 


out 


FLOAT; 












T_WALL 


: 


in 


out 


FLOAT; 


T UNITS 


. 


in 


STRING; 




Q 


: 


in 


out 


FLOAT ; 


Q_UNITS 


. 


in 


STRING) 


is 











NUMBER_OUT 
STRING (1. . 10) ; 

CHAR 

PAUSE 



PERIMETER, AREA, M, EFFICIENCY, 
DELTA T, T TIP, AREA PROFILE 



CHARACTER; 

INTEGER; 

FLOAT; 



begin 



Inputs 



FINOPT_PICTURES . INPUT_MSG; 

GET_INPUT (VOLUME, "Volume of the rectangular fin", 29, 
VOLUME_UNITS, 4, 14); 

GET_INPUT (LENGTH, "Length of the rectangular fin", 29, 
LENGTH_UNITS, 2, 15); 
if (UNITS = 2) then 

GET_INPUT(H, "Convection heat transfer coefficient, 
H_UNITS, 19, 16); 

GET_INPUT(K, "Thermal conductivity of material, k", 
K_UNITS, 17, 17); 
else 



GET_INPUT (H, 
H_UNITS, 13, 
GET_INPUT (K, 
K_UNITS, 11, 
end if; 



"Convection heat transfer coefficient, 
16) ; 

"Thermal conductivity of material, k", 
17) ; 



GET_INPUT(T_AMBIENT, "Ambient Temperature", 19, 
T_UNITS, 5, 18); 

GET_INPUT (T_WALL, "Wall Temperature", 16, 



h", 

35, 

h”, 

35 , 



39, 



39 , 
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T_UNITS, 5, 19); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN) ; 

TTY. GET (PAUSE, CHAR); 



Calculations (Assume Tip is Insulated) and Length » Width 



AREA_PROFILE := (VOLUME/ (CONVERT_DIST**3) ) 

/ (LENGTH/ CONVERT_DI ST) ; 

WIDTH := CONVERT_DIST*0. 9977 
* ( (AREA_PROFILE**2) *H/K) ** (1. 0/3. 0) ; 

HEIGHT := CONVERT_DIST* 1 . 0023 
* (AREA_PROFILE*K/H) ** (1. 0/3.0) ; 

PERIMETER := 2 . 0*LENGTH/CONVERT_DIST; 

AREA ;= (WIDTH/CONVERT_DIST) * (LENGTH/CONVERT_DIST) ; 

M := SQRT ( (H* PERIMETER) / (K*AREA) ) ; 

DELTA_T ;= T_WALL-T_AMBIENT; 

Q := K*AREA*M*DELTA_T*TANH (M*HEIGHT/CONVERT_DIST) ; 
EFFICIENCY := (TANH (M*HEIGHT/CONVERT_DIST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

T TIP := T AMBIENT+ (DELTA T/COSH (M*HEIGHT/CONVERT DIST) ) ; 



Outputs 



FINOPT_PICTURES . OUTPUT_MSG; 

TTY. PUT ( 5, 36, " Inputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT ( 7, 1, "Volume of the rectangular fin 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, VOLUME, 4, 3); 

TTY. PUT ( 7, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 7, 59, VOLUME_UNITS, YELLOW, BLACK); 

TTY. PUT ( 8, 1, "Length of the rectangular fin 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, LENGTH, 4, 3); 

TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, LENGTH_UNITS, YELLOW, BLACK); 

TTY. PUT ( 9, 1, "Convection heat transfer coefficient, h 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, H, 4, 3); 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 9, 59, H_UNITS, YELLOW, BLACK); 

TTY. PUT (10, 1, "Thermal conductivity of material, k 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K, 4, 3); 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "Ambient Temperature 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_AMBIENT, 4, 3) ; 

TTY. PUT (11, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (11, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (12, 1, "Wall Temperature 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_WALL, 4, 3) ; 

TTY. PUT (12, 48, NUMBER OUT, YELLOW, BLACK); 
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TTY. PUT (12, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (14, 35, " Outputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT (16, 1, "Optimum height of the rectangular fin 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, HEIGHT, 4, 3); 

TTY. PUT (16, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (16, 59, HEIGHT_UNITS, YELLOW, BLACK); 

TTY. PUT (17, 1, "Optimum width of the rectangular fin 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WIDTH, 4, 3); 

TTY. PUT (17, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (17, 59, WIDTH_UNITS, YELLOW, BLACK); 

TTY. PUT (18, 1, "Heat transferred away by the fin, q 

YELLOW, BLACK) ; 

PUT (NUMBER_OUT, Q, 4, 3) ; 

TTY. PUT (18, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (18, 59, Q_UNITS, YELLOW, BLACK); 

TTY. PUT (19, 1, "The fin efficiency 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, EFFICIENCY, 4, 3) ; 

TTY. PUT (19, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (20, 1, "The temperature at the tip 

YELLOW, BLACK) ; 

PUT (NUMBER OUT, T TIP, 4, 3) ; 



TTY. PUT 


(20, 


48, NUMBER 


OUT, YELLOW, BLACK) ; 








TTY. PUT 


(20, 


59, T 


_UNITS 


, YELLOW, BLACK) ; 








TTY. PUT 


(23, 


27, "■ 


Press 


any key to continue ”, 


BLUE, 


CYAN) ; 


TTY. GET 


(PAUSEy CHAR); 










end RECTANGULAR_ 


_GIVEN_ 


__VOL; 










procedure : 


RECTANGULAR 


_GIVEN 


Q (UNITS 


; 


in 


INTEGER; 










CONVERT DIST 


: 


in 


FLOAT; 










LENGTH 


: 


in 


out 


FLOAT ; 
























LENGTH UNITS 


: 


in 


STRING; 










HEIGHT 


1 


in 


out 


FLOAT; 
























HEIGHT UNITS 


1 


in 


STRING; 










WIDTH 


: 


in 


out 


FLOAT / 
























WIDTH UNITS 


: 


in 


STRING; 










H 


1 


in 


out 


FLOATY- 
























H UNITS 


: 


in 


STRING; 










K 


: 


in 


out 


FLOAT; 
























K UNITS 


: 


in 


STRING; 










T_AMBIENT 


: 


in 


out 


FLOAT; 
























T_WALL 


: 


in 


out 


FLOAT ; 
























T UNITS 


: 


in 


STRING; 










Q 


: 


in 


out 


FLOAT; 
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Q UNITS 



: in STRING) 



is 



NUMBER_OUT : 

STRING (1. . 10) ; 

CHAR : CHARACTER; 

PAUSE : INTEGER; 

PERIMETER, AREA, M, EFFICIENCY, 

DELTA_T, T_TIP : FLOAT; 

begin 



Inputs 



FINOPT_PICTURES . INPUT_MSG; 
if (UNITS = 2) then 

GET_INPUT(Q, "Heat transferred away by the fin, q", 35, 

Q_UNITS, 6, 14); 
else 

GET_INPUT (Q, "Heat transferred away by the fin, q", 35, 
Q_UNITS, 1, 14); 
end if; 

GET_INPUT (LENGTH, "Length of the rectangular fin", 29, 
LENGTH_UNITS, 2, 15); 
if (UNITS = 2) then 

GET_INPUT(H, "Convection heat transfer coefficient, h", 
H_UNITS, 19, 16); 

GET_INPUT(K, "Thermal conductivity of material, Ic", 35, 
K_UNITS, 17, 17); 
else 



39, 



GET_INPUT(H, "Convection heat transfer coefficient, h", 39, 
H_UNITS, 13, 16); 

GET_INPUT(K, "Thermal conductivity of material, )c", 35, 
K_UNITS, 11, 17); 
end if; 

GET_INPUT (T_AMBIENT, "Ambient Temperature", 19, 

T_UNITS, 5, 18); 

GET_INPUT (T_WALL, "Wall Temperature", 16, 

T_UNITS, 5, 19); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, CYAN) ; 

TTY. GET (PAUSE, CHAR) ; 



Calculations (Assume Tip is Insulated) and Length >> Width 



WIDTH := CONVERT_DIST* (0. 6321/ (H*K) ) 

* ( ( (Q/ (LENGTH/CONVERT_DIST) ) / (T_WALL-T_AMBIENT) ) **2 ) ; 
HEIGHT := CONVERT_DIST*0 . 7978 

* (Q/ (LENGTH/CONVERT_DIST) ) / (H* (T_WALL-T_AMBIENT) ) ; 
PERIMETER := 2 . 0*LENGTH/CONVERT_DIST; 

AREA := (WIDTH/CONVERT_DIST) * (LENGTH/CONVERT_DIST) ; 

M := SQRT ( (H* PERIMETER) /(K*AREA)); 
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DELTA_T := T_WALL-T_AMBIENT; 

Q := K*AREA*M*DELTA_T*TANH(M*HEIGHT/CONVERT_DIST) ; 
EFFICIENCY := (TANH (M*HEIGHT/CONVERT_DIST) ) 

/ (M*HEIGHT/CONVERT_DIST) ; 

T TIP := T AMBIENT+( DELTA T/COSH (M*HEIGHT/CONVERT DIST) ) ; 



Outputs 



FINOPT_PICTURES . OUTPUT_MSG; 

TTY. PUT ( 5, 36, " Inputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT ( 7, 1, "Heat transferred away by the fin, q 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, Q, 4, 3); 

TTY. PUT ( 7, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 7, 59, Q_UNITS, YELLOW, BLACK); 

TTY. PUT ( 8, 1, "Length of the rectangular fin 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, LENGTH, 4, 3); 

TTY. PUT ( 8, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 8, 59, LENGTH_UNITS, YELLOW, BLACK); 

TTY. PUT ( 9, 1, "Convection heat transfer coefficient, h 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, H, 4, 3) ; 

TTY. PUT ( 9, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT ( 9, 59, H_UNITS, YELLOW, BLACK); 

TTY. PUT (10, 1, "Thermal conductivity of material, 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, K, 4, 3) ; 

TTY. PUT (10, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (10, 59, K_UNITS, YELLOW, BLACK); 

TTY. PUT (11, 1, "Ambient Temperature 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_AMBIENT, 4, 3) ; 

TTY. PUT (11, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (11, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (12, 1, "Wall Temperature 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_WALL, 4, 3) ; 

TTY. PUT (12, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (12, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (14, 35, " Outputs ", BRIGHT_WHITE, GREEN); 

TTY. PUT (16, 1, "Optimum height of the rectangular fin 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, HEIGHT, 4, 3) ; 

TTY. PUT (16, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (16, 59, HEIGHT_UNITS, YELLOW, BLACK); 

TTY. PUT (17, 1, "Optimum width of the rectangular fin 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, WIDTH, 4, 3); 

TTY. PUT (17, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (17, 59, WIDTH_UNITS, YELLOW, BLACK); 

TTY. PUT (18, 1, "The fin efficiency 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, EFFICIENCY, 4, 3) ; 

TTY. PUT (18, 48, NUMBER OUT, YELLOW, BLACK); 
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TTY. PUT (19, 1, "The temperature at the tip 
YELLOW, BLACK) ; 

PUT (NUMBER_OUT, T_TIP, 4, 3) ; 

TTY. PUT (19, 48, NUMBER_OUT, YELLOW, BLACK); 

TTY. PUT (19, 59, T_UNITS, YELLOW, BLACK); 

TTY. PUT (23, 27, " Press any key to continue ", BLUE, 

TTY. GET (PAUSE, CHAR) ; 

end RECTANGULAR_GIVEN_Q; 

end FINOPT SINGLE; 



CYAN) 
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